LordDragon
08-15-2015, 06:55 AM
Greetings,
I would like to shade every other row on each sheet, but only from Column A to Column F.
I've tried several configurations of the following code, but nothing seems to work.
Sub ShadeRequired()
'Shades every other row.
'Declare the variables
Dim intRow As Long
'Dim rngCol As Range
'rngCol = ("A:F")
'With ActiveWorkbook.Worksheets("General Use Items").Range("A:F")
For intRow = 3 To 117 Step 2
Rows(intRow).Interior.Color = RGB(200, 200, 200)
Next intRow
'End With
End Sub
It could be my Workbook too, because even when I remove any limitations to the code about the column range, it still doesn't work.
Any ideas would be appreciated.
I would like to shade every other row on each sheet, but only from Column A to Column F.
I've tried several configurations of the following code, but nothing seems to work.
Sub ShadeRequired()
'Shades every other row.
'Declare the variables
Dim intRow As Long
'Dim rngCol As Range
'rngCol = ("A:F")
'With ActiveWorkbook.Worksheets("General Use Items").Range("A:F")
For intRow = 3 To 117 Step 2
Rows(intRow).Interior.Color = RGB(200, 200, 200)
Next intRow
'End With
End Sub
It could be my Workbook too, because even when I remove any limitations to the code about the column range, it still doesn't work.
Any ideas would be appreciated.