Break Each Object Apart within Selection

Hi,

This seems like it should be a very basic macro to write, but I can't seem to get it to work (it's been a very long day). The basic idea is to break individual objects apart from within a selection. I'm not a programmer, but I made a stab at it with no success. Any help would be appreciated (I'm too emabarassed to post the code I tried ).

Cheers,
Geoff

[shelbym]

I tried to keep this as simple as I could. Basically it gets the selection, loops thru it, and breaks apart every shape. Hope it gives you a place to start.

Sub BreakApart()

Dim s As Shape
Dim Selection As ShapeRange

Set Selection = ActiveSelectionRange

For Each s In Selection
    s.BreakApart
Next s

End Sub

Thanks a million. I was close and now I see exactly where I went wrong (some sleep probably helped as well). Your help is greatly appreciated.

Cheers,
Geoff