Resize range does not resize address

[Lapwing]

I have just found something that seems strange to me. If I resize a range the address of that range does not get resized at the same time. This then prevents being able to step through the range using a For Each loop.
Question: do I really have to SET the range so that I can loop through it?

Sub TestSub()
Dim rTarget As Range
Dim Cell As Range


Set rTarget = Range("A1")
rTarget.Resize(5, 5) = 1


Debug.Print rTarget.Address 'this produces $A$1



Set rTarget = Range("A1:E5")
Debug.Print rTarget.Address '$A$1:$E$5


'if you comment out the previous two lines
'there is only one pass through this bit of code instead of 5


For Each Cell In rTarget.Columns(5).Rows
    Cell = Cell * 5
Next


End Sub

 

[Jonmo1]

This doesn't 'permanently' resize rTarget
rTarget.Resize(5, 5) = 1

It only does it temporarily, and puts a 1 in all those cells.
rTarget remains whatever it was previously.

It would be just like doing
rTarget.Offset(5,5) = 1

You don't expect rTarget to then be changed to F6 right?

You'd have to do
Set rTarget = rTarget.Resize(5,5)

 

[Jonmo1]

Question: do I really have to SET the range so that I can loop through it?

No, you could do it like this

For Each Cell In rTarget.Resize(5, 5).Columns(5).Rows

 

[Lapwing]

Thanks very much Jonmo1 that works as described (both answers).
As you indicated I thought the resize was permanent.

 

[Jonmo1]

Glad to help, thanks for the feedback.