If its a subtotal Row?

[andycharger]

Hi,

Im trying to colour code my Subtotal rows as part of my macro.
I want to search the sheet and colour it red if its a subtotal.

I tried the following but it ignored the Grand Total Row.

Is there a way to say "If its a subtotal type of data colour it red"?

Thanks

Here is my code for the grand total that does not work.

For Rowdates2 = Range("A1").End(xlDown).Row To 1 Step -2

If Cells(Rowdates2, "A").Value = "Grand Total" Then

Rows(Rowdates2).Interior.ColorIndex = "5"

Else


End I

 

[Frank Kabel]

Hi
a way without VBA would be to use conditional formating:
- select your column A
- goto 'Format - Conditional Format'
- enter the formula
=ISNUMBER(FIND(A1,"Total"))
- choose your format

 

[andycharger]

But I need it to do it in VBA!

Anyone else got any ideas?

Thank

 

[Frank Kabel]

Hi
try changing the line
If Cells(Rowdates2, "A").Value = "Grand Total" Then

to
If InStr(Cells(Rowdates2, "A").Value,"Total") > 0 Then

just curious: Why do you have to do it in VBA (usually slower than
using a conditional format)