Private Sub Combobox1_Click()
sStr = Combobox1.Value
With worksheets("Sheet1")
.Activate
.Columns(2).Font.ColorIndex = xlAutomatic
Set rng = .Columns(2).Find(What:=sStr, _
After:=.Range("B65536"), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not rng Is Nothing Then
rng.Select
rng.Font.ColorIndex = 3
Else
MsgBox sStr & " not found"
End If
End Sub

--
Regards,
Tom Ogilvy


"geebee" (noSPAMs) wrote in message
...
hi,

Let's say I have a combobox in a sheet, with values. Whenever a value is
selected, I want the sheet to move to the first occurence of that selected
value in column B. How can this be done?

I would also like for that value's cell be colored in red.

Thanks in advance,
geebee