Sweet, thanks a lot works great, just did a small modification.
If ActiveCell.Offset(-1, 0).Interior.ColorIndex = xlNone Then
ActiveCell.EntireRow.Interior.ColorIndex = 15
Else
ActiveCell.EntireRow.Interior.ColorIndex = xlNone
End If
Les Stout
*** Sent via Developersdex
http://www.developersdex.com ***