Sub ColorAltLines()
Dim bOn As Boolean
Rows("1:1").Select
BlueTint
Range("A2").Select
While ActiveCell.Value <> ""
If bOn Then
Rows(ActiveCell.Row & ":" & ActiveCell.Row).Select
OrangeTint
End If
bOn = Not bOn
ActiveCell.Offset(1, 0).Select 'NEXT ROW
Wend
End Sub
Private Sub OrangeTint()
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.799981688894314
.PatternTintAndShade = 0
End With
End Sub
Private Sub BlueTint()
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0.799981688894314
.PatternTintAndShade = 0
End With
End Sub
Bookmarks