Try this, it sets a range irng in blocks of 8 columns

Sub StepLoop()
Dim irng As Range
Dim iloop As Integer
For iloop = 7 To 102 Step 8
Set irng = Range(Cells(9, iloop), Cells(300, iloop + 7))
' act on your range irng in here
Next iloop
End Sub

Cheers
Nigel

"hotherps " wrote in message
...
I have some code that runs through the following range:

G9:CX300

I would like to loop through 8 columns at a time instead of the whole
range. i.e.

G9:N300
O9:V300

etc

Thanks


---
Message posted from http://www.ExcelForum.com/