Sub test()
Dim RangesArray()
Dim Counter As Long
Counter = Application.InputBox("How Many Ranges?", , , , , , , 1)
ReDim RangesArray(Counter)
For x = 1 To Counter
Set RangesArray(x) = Application.InputBox("Select Range", Type:=8)
Next x
For Z = 1 To Counter
MsgBox "Range " & Z & " comprised of " & RangesArray(Z).Address
Next
End Sub


--
p45cal

*p45cal*
------------------------------------------------------------------------
p45cal's Profile: http://www.thecodecage.com/forumz/member.php?userid=558
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=133672