CG,

What happens, you say seems not to work, but in what way? Which worksheet is
Combobox1 on?

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"CG Rosén" wrote in message
...
Hi Group,

Will try to clearify my earlier question.
Try to make below code to work but need some help.

ActiveSheet when running the code is Worksheets(1).

1- Is the FindMethod working when the "search area " is in another
worksheet in the same workbook. ( without activating of this wksh)?
2- Code below seems not to work. Is it the syntax of the "search area"
that is wrong?

Thanks for any help

Brgds

CG Rosén

Dim k
With Worksheets(2).Range("A1:A100")
'????????
Set k = .Find(ComboBox1.Text, LookIn:=xlValues)
If k Is Nothing Then
code.....
Else
code....
End If
End With