Dim mpArea As Range

For Each mpArea In Selection.Areas

Debug.Print mpArea.Address
Next mpArea


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"ojv" wrote in message
...
Application.Selection can contain several items. Is is possible to loop
through these ? If so how?

Any help appreciated.