Find and Highlight Marco

Try this:

Option Explicit

Sub svinet()
Dim lr As Long
Dim i As Long
lr = Range("A" & Rows.Count).End(xlUp).Row

For i = 1 To lr
If Range("E" & i) = "JZK" And Range("L" & i) > 0 Then
Range("A" & i & ":L" & i).Interior.ColorIndex = 6
End If
Next i
End Sub

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED. Thanks.