Maybe try
Set rngCell = Cells.Find(What:=UserForm1.ComboBox1.Value, After:=Cells(1, 1), SearchOrder:=xlByRows, SearchDirection:=xlPrevious) If Not rngCell Is Nothing Then With rngCell strFullAddress = .Address End With Else Msgbox "oops!" End If
Maybe try
Set rngCell = Cells.Find(What:=UserForm1.ComboBox1.Value, After:=Cells(1, 1), SearchOrder:=xlByRows, SearchDirection:=xlPrevious) If Not rngCell Is Nothing Then With rngCell strFullAddress = .Address End With Else Msgbox "oops!" End If
Last edited by Aussiebear; 01-31-2025 at 03:08 AM.
____________________________________________
Nihil simul inventum est et perfectum
Abusus non tollit usum
Last night I dreamed of a small consolation enjoyed only by the blind: Nobody knows the trouble I've not seen!
James Thurber