Hey saban

Found this in a reply by mdmackillop so if it works he's the man to thank.

[vba]
Sub FindLookup()
Dim ThsBook As Workbook, c As Range
Application.ScreenUpdating = False
Set c = Columns("K").Find(What:="Zaseden")
If Not c Is Nothing Then
MsgBox "Yes it exists"
Exit Sub
End If
MsgBox "Zaseden not found"
Application.ScreenUpdating = True
End Sub
[/VBA]