Jun 25, 2003 #1 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!!!!
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!!!!