VBA Color for Alternating rows

[Kiloelectronvolt]

Hi All, I found this code online, but I can't stand the color options in the index. I'm a noob and can't get it to switch to RGB format. Can someone please help? Thanks!

Sub ShadeRows()
'Updateby20140529
Dim Rng As Range
Dim WorkRng As Range
Dim shadeIt As Boolean
shadeIt = True
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng.Rows
    If Not Rng.EntireRow.Hidden Then
        Rng.Interior.ColorIndex = _
        IIf(shadeIt, 15, xlNone)
        shadeIt = Not (shadeIt)
    End If
Next
End Sub

 

[Fluff]

You can use rgb like

Rng.Interior.Color = IIf(shadeIt, RGB(255, 0, 0), RGB(0, 0, 255))

 

[lrobbo314]

How about this?

Sub ShadeRows()
'Updateby20140529
Dim Rng As Range
Dim WorkRng As Range
Dim shadeIt As Boolean
shadeIt = True
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng.Rows
    If Not Rng.EntireRow.Hidden Then
        Rng.Interior.Color = _
        IIf(shadeIt, RGB(225, 25, 220), xlNone)
        shadeIt = Not (shadeIt)
    End If
Next
End Sub

 

[Kiloelectronvolt]

thank you both so much! That works great!

 

[Fluff]

Glad we could help & thanks for the feedback.