For Next Loop>shade every third row.

12/1/2016 - 5:23 PM

For Next Loop >shade every third row.

For Next Loop

shade every third row.

Option Explicit
Dim i As Long

Sub ShadeEveryThirdRow()
   
    For i = 1 To 100 Step 3
    Rows(i).Interior.Color = RGB(200, 200, 200)
    Next i

End Sub

Cacher is the code snippet organizer for pro developers

We empower you and your team to get more done, faster

For Next Loop >shade every third row.