Hi Everybody

I have a sheet using Rowsource A2:G470 which populates a Listbox
in Column G is a unique number for each row.

On a Userform I use the following to find the number on the sheet in Column
G when it finds the number is it possible for the row in the list box to be
highlighted.

below is the code I'm using to find the number on the sheet.

Private Sub Cmd100_Click()
Dim rngToSearch As Range
Dim rngFound As Range

Set rngToSearch = ActiveSheet.Columns("G")
Set rngFound = rngToSearch.Find(What:=TB100.Value, _
LookIn:=xlFormulas, _
LookAt:=xlWhole, _
MatchCase:=False)
If rngFound Is Nothing Then
MsgBox "Sorry " & TB100.Value & " was not found."
Else

rngFound.Select
ActiveCell.Interior.Color = RGB(126, 255, 126) 'Green
End If


End Sub

Many thanks


--
Many Thanks

Sue