You could try using the FIND object in the combobox_click event
set rg = Worksheets(1).Range("a1:a500")
With rg 'look in column a for the va
Set c = .Find(combo1.text, lookin:=xlValues)
If Not c Is Nothing Then
End Wit
--
Message posted from
http://www.ExcelForum.com