Bold all rows where a cell contains text "X"
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
Do
Set r = .FindNext(r)
If Not r Is Nothing Then
r.EntireRow.Font.Bold = True
end if
Loop While Not c Is Nothing
end if
End With
End Sub
" wrote:
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
On May 14, 3:41 pm, "papou" wrote:
Hi
Please amend accordingly:
HTH
Cordially
Pascal
a écrit dans le message de news:
om...
I want to BOLD all rows where a cell contains text "X" in any cell in
range.
Does anyone has the solution?- Hide quoted text -
- Show quoted text -
Although I had changed the range to A1:H1000, only one row was bold.
|