Application.Selection and its items

[ojv]

Application.Selection can contain several items. Is is possible to loop
through these ? If so how?

Any help appreciated.

 

[Bob Phillips]

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]

Yes. But what if Selection consists of multiple shapes or chartobjects only?

 

[Barb Reinhardt]

Dim myShape as shape
dim myChtObj as ChartObject

For Each myShape in Selection.Shapes

next myShape

for Each myChtObj in Selection.ChartObjects

Next myChtObj

 

[Bob Phillips]

Why didn't you say that in the first place?

--
HTH

Bob

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