Skiftevis baggrundsfarve i cellerne

Der er mange gode forslag her:
http://www.eksperten.dk/spm/182079

Tak for hjælpen

Jeg ville gøre det således:

Public Sub SelectedRowsGray()
    Dim lCount As Long
    For lCount = 1 To Selection.Rows.Count Step 2
        Selection.Rows(lCount).Interior.ColorIndex = 15
    Next lCount
End Sub

Hvis nogle af cellerne skulle have en anden farve i forvejen, så ville jeg gøre således:

Public Sub SelectedRowsGrayAndWhite()
    Dim lCount As Long
    For lCount = 1 To Selection.Rows.Count
        With Selection.Rows(lCount).Interior
            If lCount Mod 2 = 0 Then
                .ColorIndex = xlNone
            Else
                .ColorIndex = 15
            End If
    Next lCount
End Sub

Ja, det er vist noget nær den optimale løsning... Flot!

For god ordens skyld vil jeg dog lige nævne, at der mangler en "End With" lige efter "End If" i den nederste makro.

Tak :o)
Den nederste skal se således ud:
Public Sub SelectedRowsGrayAndWhite()
    Dim lCount As Long
    For lCount = 1 To Selection.Rows.Count
        With Selection.Rows(lCount).Interior
            If lCount Mod 2 = 0 Then
                .ColorIndex = xlNone
            Else
                .ColorIndex = 15
            End If
        End With
    Next lCount
End Sub