Anyone know what Color Index is this?

[asalman07]

I ran a macro and I would like to find out the Color Index Number.

With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -4.99893185216834E-02
.PatternTintAndShade = 0
End With



Thank you all!

 

[asalman07]

Djreiswig,

This is perfect!!! Thank you so much!

I wasn't sure if your colored rows were supposed to start with the first one in the selection, or odd/even numbered rows, so I'll give you both.

This changes the color of all of the even numbered rows in the selection. To change the odd numbered rows just change the first = to <>

Sub AlternateColorBanding()
    Dim MyRange As Range
    For Each MyRange In Selection.Rows
        If MyRange.Row Mod 2 = 0 Then
            MyRange.Rows.Interior.Color = RGB(242, 242, 242)
        End If
    Next
 End Sub

This one changes the color of the first row of the selection and every other one thereafter.
If you want to start with the second row just change the first = to <>.

Sub AlternateColorBanding()
    Dim MyRange As Range
    For Each MyRange In Selection.Rows
        If MyRange.Row Mod 2 = Selection.Rows(1).Row Mod 2 Then
            MyRange.Rows.Interior.Color = RGB(242, 242, 242)
        End If
    Next
 End Sub

 

[djreiswig]

No problem. Glad I could help.