Excel: Varannan rad fylld med färg

Skapa ett makro med detta nedan.

Sub ShadeEveryOtherRow()
Dim Counter As Integer

'För varje rad i den aktuella markeringen ...
For Counter = 1 To Selection.Rows.Count
    'Om raden är ett udda nummer (inom markeringen) ...
    If Counter Mod 2 = 1 Then
        'Ange mönstret till xlGray16.
        Selection.Rows(Counter).Interior.Pattern = xlGray16
    End If
Next

End Sub

alternativt http://www.webforum.nu/showthread.php?t=135460

equal to 0 kan du ändra till vad du vill i listan

Ok, men hur kan jag göra för att villkoret skall vara varannan cell?

Vet inte varför jag länkade den tråden, det var den här jag hade i tanken http://www.webforum.nu/showthread.php?t=132886

Funkar finfint, tack!