Sure

Dim aryCells

Redim aryCells(1 To 5)
Set aryCells(1) = Range("A1:A5")
Set aryCells(2) = Range("H1:H10")
'ETC

MsgBox aryCells(1).address

Redim Preserve aryCells(1 To 15)
set aryCells(12) = range("M1:M10")

MsgBox aryCells(12).address

--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

wrote in message
oups.com...
Thanks Bob,

by the way, is there a way I can change the size of that object array?
(i.e. so I create an object called aryCells with indexes 1 thru 5, can
I later modify aryCells to have 15 range objects in it?)
-Abe

Bob Phillips wrote:
Here is an example that should get you started

Dim aryCells(1 To 5) As Object

Set aryCells(1) = Range("A1:A5")
Set aryCells(2) = Range("H1:H10")
'ETC

MsgBox Application.Sum(aryCells(1))

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

wrote in message
ups.com...

And by cells object, I meant range object.
-Abe