Dim myRange as Range, cell as Range
myRange = Worksheets("Sheet1").Range("B15:B17")

for each cell in myRange
msgbox cell.Address
Next

for i = 1 to myrange.count
msgbox myrange(i).Address
Next

--
Regards,
Tom Ogilvy



"Dev" wrote:

I set up myRange to contigious cells - now how do I get individual range
objects from it?
Ex: I set myRange = Worksheets("Sheet1").Range("B15:B17") - now I want to
get B15, B16; B17. Is there any way to get this using Excel OM?

Thanks for any suggestion!