Make rng an array.

Dim rng(1 to 3) as Range
Set rng(1) =
Worksheets(varWorksheetInfoArray(0)).Cells.Find(va rWorksheetInfoArray(1),
LookIn:=xlValues)

Set rng(2) =
Worksheets(varWorksheetInfoArray(0)).Cells.Find(va rWorksheetInfoArray(2),
LookIn:=xlValues)

Set rng(3) =
Worksheets(varWorksheetInfoArray(0)).Cells.Find(va rWorksheetInfoArray(3),
LookIn:=xlValues)

for i = 1 to 3
msgbox rng(i).Address(0,0,xlA1,True)
Next

--
regards,
Tom Ogilvy

"JP" wrote:

I assign values to range objects from an array. Is is possible to loop this?
My code is:

Set rng1 =
Worksheets(varWorksheetInfoArray(0)).Cells.Find(va rWorksheetInfoArray(1),
LookIn:=xlValues)

Set rng2 =
Worksheets(varWorksheetInfoArray(0)).Cells.Find(va rWorksheetInfoArray(2),
LookIn:=xlValues)

Set rng3 =
Worksheets(varWorksheetInfoArray(0)).Cells.Find(va rWorksheetInfoArray(3),
LookIn:=xlValues)

I can easily loop the array but how do you name the rng1, rng2 etc. ? They
are defined as Range. Thanks!