Sub KRASIT()
    Dim C As Range, RO As Range, RX As Range, T
    Set RO = Range("AK1:AK121")
    For Each C In Selection
        If C <> Empty Then
            Set RX = RO.Find(C.Value, LookAt:=xlWhole)
            If Not RX Is Nothing Then
                C.Interior.Color = RX.Interior.Color
            Else
                C.Interior.Color = RGB(255, 255, 0)
            End If
        End If
    Next
End Sub