Sub Selecionar_Agrupar_Shapes() ActiveSheet.Shapes.SelectAll Selection.ShapeRange.Group.Select End Sub
Rafael Kamimura - http://excelmaniacos.com