Sub ForNextTest ()
'this will be your starting point
Range("yourRangeHere").select
'this is how many times you want the loop,change the 60 to what ever
you need
For varCounter = 1 to 60
'enter code here
Next
End Sub
test it out, maybe set the counter to 5or 10 to make sure its going to
work properly
dave