conditional formatting

Dharmesh

Registered User.
Local time
Today, 22:19
Joined
Dec 7, 2006
Messages
25
Hello

I am having problems with some conditional formatting code, can anyone help me. I basically have a piece of code which adds subtotals and totals to an excel file. I have some coding to colour the subtotal and total rows, but its does not seem to work. can anyone help me with it.

thanks

dharmesh

Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=IF(ISERROR(SEARCH(""Total"";$B1));"""";1)"
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
End With
Selection.FormatConditions(1).Interior.ColorIndex = 6
 

Users who are viewing this thread

Back
Top Bottom