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.

Using numbers 1 and 2 in F1 I dimmed myRng as Range which works.

Using A, B, C in F1 I get Object Required or Type Mismatch when Dimming myRng as Range, String or Variant.

Howard