Sub Test1()
    Dim sh As Worksheet
    Dim sh2 As Worksheet
Dim rw As Range
Dim i As Integer, k As Integer, j As Integer
Set sh2 = Sheets("enova")
Set sh = Sheets("klient")
k = sh.UsedRange.Rows.Count
j = sh2.UsedRange.Rows.Count

For i = 2 To k
     If Application.WorksheetFunction.CountIf(sh2.Range(sh2.Cells(2, 1), sh2.Cells(j, 1)), sh.Cells(i, 1).Value) > 0 Then
        sh.Cells(i, 1).Interior.Color = RGB(255, 255, 255)
    Else
        sh.Cells(i, 1).Interior.Color = RGB(255, 255, 0)
    End If
Next i
End Sub