I want to BOLD all rows where a cell contains text "X" in any cell in
range.

Does anyone has the solution?

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?

On May 14, 3:41 pm, "papou" wrote:
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:
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.

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.

On May 14, 7:18 pm, Joel 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

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.- Hide quoted text -

- Show quoted text -
It work but the system hang???