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)


--
Regards
Frank Kabel
Frankfurt, Germany

"andycharger " schrieb im
Newsbeitrag ...
But I need it to do it in VBA!

Anyone else got any ideas?

Thanks


---
Message posted from http://www.ExcelForum.com/