Find "X", bold entire row
 

I want to BOLD entire row where a cell contains text "X" in any cell
in
range(active sheet).

I had tried the below macro, it did bold the row contained text "X".
However everytime when I run this macro my excel program hang. Does
anyone has the solution?



Sub PutInBoldXs()
Dim r As Range
With Range("A1:C30")
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

End If
End With
End Sub

Find "X", bold entire row
 

On Wed, 10 Oct 2007 19:48:32 -0700, wrote:

I want to BOLD entire row where a cell contains text "X" in any cell
in
range(active sheet).

I had tried the below macro, it did bold the row contained text "X".
However everytime when I run this macro my excel program hang. Does
anyone has the solution?



Sub PutInBoldXs()
Dim r As Range
With Range("A1:C30")
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

End If
End With
End Sub

I would suggest using Conditional Formatting.

You could either set up the sheet that way initially, or run this macro once:


Sub PutInBoldXs()
With Range("A1:C30")
.Cells(1, 1).Select
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=COUNTIF($A1:$C1,""*X*"")0"
With .FormatConditions(1).Font
.Bold = True
.Italic = False
End With
End With
End Sub

--ron