一行おきに色つけするマクロ(ExcelVBA)

　非常に単純なマクロですが、わりと多用しそう。
　条件付き書式で「一行おき色つけ」をする方法はよく知られていますが、わりと面倒くさいので、このソースをPersonalに保存して、あらかじめコマンドボタンにアサインしてくと便利。
　下記の例では、通常のパレットでベージュに色つけ。

Sub 一行おきに色つけ()
Application.ScreenUpdating = False
Dim 対象セル As Range
    For Each 対象セル In Selection
            If 対象セル.Row Mod 2 = 1 Then
                対象セル.Interior.ColorIndex = 40
            End If
    Next 対象セル
Application.ScreenUpdating = True
End Sub

　If〜EndIfのところを「対象セル.Interior.ColorIndex = (対象セル.Row Mod 2)＊40」とかにするとかっこいいんだろうか。