Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Find "X", bold entire row
|
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
"Find" a wildcard as a place marker and "replace" with original va | Excel Discussion (Misc queries) | |||
find "Cancellation" in column "A" and copy all data from Columns B-F onto another Sheet | Excel Programming | |||
HELP on "left","right","find","len","substitute" functions | Excel Discussion (Misc queries) | |||
Where is the toolbar with the "bold type", "font type", options | New Users to Excel |