Hi Group,

Have below code. ActiveSheet is WorkSheets(1). Is this the correct syntax
for the "search area"? Seems not to work.

Thanks for any hints.

Brgds

CG Rosén

Dim d
With Worksheets(4).Range("B1:B100") '????????
Set d = .Find(ComboBox1.Text, LookIn:=xlValues)
If d Is Nothing Then
MsgBox "OK"
Else
MsgBox "NIL"
End If
End With