Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Westi on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

I got it to work thanks to you.

Status
Not open for further replies.

ribhead

Technical User
Jun 2, 2003
384
US
I got it to work thanks to you.


With ActiveSheet
With .Shapes(.Shapes.Count)
.Ungroup.Select
End With
End With

End Sub

I may not be very smart but I'm sure wirey!!!!
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top