Highlight certain text for the entire workbook.
 

Hello,

I have code below that I am trying to finish up, but I need some help. The
code is conditional format searching for a partucular word "Treay Year"
highlights the font in bold and in Red font, but this only works for one
sheet. I want to do is the entire workbook not just one sheet. There may
be a workbook with 10 sheets or more. If perhaps there is a better code I
will be open to it. I am using Excel 2007. Can somebody help me? Thank
you in advance.

Sub Highlight
Cells.Select
Selection.FormatConditions.Add Type:=xlTextString, String:="Treaty
Year", _
TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditi ons.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.Color = -16776961
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False

End Sub

Highlight certain text for the entire workbook.
 

Wrap you code into a loop that sets the conditional for each sheet....
something like, I also removed all the selections that the macro recorder
creates as these are not required. Notice I have added the
FormatConditions.Delete statement at the beginning, this is because the
conditions are additive, so removing all before adding new is advised,
unless you have already added others you wish to keep?

Dim wS as Worksheet
For Each wS in ActiveWorkbook.Worksheets
With wS.Cells
.FormatConditions.Delete
.FormatConditions.Add Type:=xlTextString, String:="Treaty Year",
TextOperator:=xlContains
.FormatConditions(.FormatConditions.Count).SetFirs tPriority

With .FormatConditions(1).Font
.Bold = True
.Italic = False
.Color = -16776961
.TintAndShade = 0
End With

.FormatConditions(1).StopIfTrue = False

End With
Next wS



--

Regards,
Nigel




"CAM" wrote in message
...
Hello,

I have code below that I am trying to finish up, but I need some help.
The code is conditional format searching for a partucular word "Treay
Year" highlights the font in bold and in Red font, but this only works for
one sheet. I want to do is the entire workbook not just one sheet.
There may be a workbook with 10 sheets or more. If perhaps there is a
better code I will be open to it. I am using Excel 2007. Can somebody
help me? Thank you in advance.

Sub Highlight
Cells.Select
Selection.FormatConditions.Add Type:=xlTextString, String:="Treaty
Year", _
TextOperator:=xlContains

Selection.FormatConditions(Selection.FormatConditi ons.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.Color = -16776961
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False

End Sub