Increasing a range in a loop
Cheers Tom.
Ric
"Tom Ogilvy" wrote in message
...
Sub Tester11()
Dim rng As Range, rng1 as Range
Dim i as Long
Set rng = Range("A1:Z5")
For i = 1 To 5
Set rng1 = rng.Offset((i - 1) * 5, 0)
MsgBox rng1.Address
Next
End Sub
--
Regards,
Tom Ogilvy
"ric" wrote in message
...
Is there a way to increase a range in a loop?
So "A1:Z5" would become "A6:Z10".
Regards
Ric
|