Альтернативные цвета строк в диапазоне

Я придумал следующее, чтобы чередовать цвета строк в указанный диапазон:

Sub AlternateRowColors()
Dim lastRow as Long

lastRow = Range("A1").End(xlDown).Row

For Each Cell In Range("A1:A" & lastRow) ''change range accordingly
    If Cell.Row Mod 2 = 1 Then ''highlights row 2,4,6 etc|= 0 highlights 1,3,5
        Cell.Interior.ColorIndex = 15 ''color to preference
    Else
        Cell.Interior.ColorIndex = xlNone ''color to preference or remove
    End If
Next Cell

End Sub

Это работает, но есть ли более простой метод?

Следующие строки кода могут быть удалены, если ваши данные не содержат ранее существовавших цветов:

    Else
        Cell.Interior.ColorIndex = xlNone