How do you select a row

[KulbirSingh]

I am trying to write a macro whereby I want to find "*" in column B an
then select and format that row to be bold.

How do you do this?

Thanks
Kulbir Sing

 

[Don Guillett]

A simple mod of findnext available in HELP index. NO need to select.

Sub findstar()
With activesheet.columns(2)
Set c = .Find("*", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Font.Bold = True
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With

End Sub