Programmatically shade alternating lines in VBA macro ?

I would like to programmatically (in VBA macro) shade alternating lines
of a section of a worksheet.

I've done this manually, but can't find documentation on how to do it via VBA.

The section of the worksheet I want to alter begins on line 11, and goes a
varying number of lines down.

So, I imagine I'd do something like I did here to sort the data on column M ...

Worksheets("Out").Range("A11").End(xlDown).Sort _
Key1:=Worksheets("Out").Range("M11"), _
order1:=xlAscending


Any help would be appreciated. Thanks

Thanks,


I tried both methods above - and both only shaded column A. I want multiple colums shaded - entire rows.

Also ... is there a command to set the active sheet, or better yet, a means to specify what sheet I want to work with - so I don't have to change the active sheet. Hope that made sense.

Thanks

Please Login or Register  to view this content.

OK ... got it .... This worked.


Sub Shadem(): Dim i As Long
Sheets("Out").Activate
For i = 11 To ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row Step 2
ActiveSheet.Range("A" & i).EntireRow.Interior.ColorIndex = 6
Next i
End Sub



Thank you all