For each row, reserve a column (eg, Col CA) to contain the last color index,
reserve the another column (eg, CB) to contain the last border attribute, and
so on. Save the last attributes in these cells before you set it to the new
one. When you want to restore, do a pass and put the saved values into the
attribute again.

Regards,
Antonio Elinon

"parteegolfer" wrote:


I have entered this VBA to change a row color if a certain condition is
met. However if is condition then changes to something other then the
specified condion I would like the row format to change back to the
original. How can I get this done? Here is what I have to change the
row color:
Private Sub Workbook_Open()
Dim cell As Range, rng As Range
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Worksheets
For Each cell In Sh.Range("AL6:AL2000")
If cell.Value = "Weekly Subtotal" Then
Set rng = Intersect(Sh.Range("A8:J2000"), _
cell.EntireRow)
rng.Interior.ColorIndex = 45
End If
Next
Next

End Sub


How can I get back to the original format. including the default
border?


--
parteegolfer
------------------------------------------------------------------------
parteegolfer's Profile: http://www.excelforum.com/member.php...o&userid=31951
View this thread: http://www.excelforum.com/showthread...hreadid=517341