changing range in a loop

[gordsky]

Hi,

I have a number of ranges but for the purpose of this question will limit to 3. I have a for loop that does some things with Rng1 which I would like to repeat over the remaining ranges. I dont want to join the ranges or use a union due to the code later on in the macro. Is there a way to increment the Rng by 1 on each loop something along the lines of

Set Rng1 = Sheets(Sheet1).Range("E11:E43")
Set Rng2 = Sheets(Sheet1).Range("E55:E83")
Set Rng3 = Sheets(Sheet1).Range("K11:K43")

for i = 1 to 3

with Rng(i)

'do something

end with
next i

any help or suggestions would be appreciated

 

[Alex Blakenburg]

Glad we could help. Thanks for the feedback.