Hi
Please amend accordingly:

Sub PutInBoldXs()
Dim r As Range
With Range("A1:C10")
Set r = .Find("X", LookIn:=xlValues, searchorder:=xlByRows)
If Not r Is Nothing Then r.EntireRow.Font.Bold = True
End With
End Sub


HTH
Cordially
Pascal

a écrit dans le message de news:
...
I want to BOLD all rows where a cell contains text "X" in any cell in
range.

Does anyone has the solution?