Hi Howard,

Am Mittwoch, 30. Oktober 2013 12:32:49 UTC+1 schrieb Howard:

That plugs in quite nicely.

that also works with A, B and C into the dropdown in F1:

Set myrng = Columns(Range("F1").Text)
Set rngfirst = myrng.Find(What:=strFindWhat, _
LookIn:=xlValues, lookat:=xlPart, _
SearchOrder:=xlByRows)

Kind Regards
Claus B.