Try amending this with the group name, you can see of in the NameBox when you select it.
ActiveSheet.Shapes.Range(Array("your group name here")).Ungroup
Try amending this with the group name, you can see of in the NameBox when you select it.
ActiveSheet.Shapes.Range(Array("your group name here")).Ungroup
Hope that helps.
Get the free Excel based Toolbar or click here for free examples & Excel Consultancy
RoyUK
Posting Permissions
Reply With Quote