Solved: Group All Objects on a Active Worksheet

[Shazam]

Hi everyone,


Can anyone could make this macro below to run faster? I would like to group all objects in the worksheet. The macro below is a simple macro recording but its slow. If anyone knows how to run this faster that will be great. So I could run the macro on every worksheet.





Sub GroupAllObjects()
With Application
.ScreenUpdating = False

On Error Resume Next
ActiveSheet.Shapes("Rectangle 6").Select
Selection.Characters.Text = " Week Of"
With Selection.Characters(Start:=1, Length:=3).Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 10

End With
With Selection.Characters(Start:=4, Length:=1).Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 10

End With
With Selection.Characters(Start:=5, Length:=7).Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 9

End With
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Picture 7")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Picture 7", "Picture 8")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Picture 7", "Picture 8", _
"Line 24")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Picture 7", "Picture 8", _
"Line 24" _
, "Line 23")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Picture 7", "Picture 8", _
"Line 24" _
, "Line 23", "Line 22")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Picture 7", "Picture 8", _
"Line 24" _
, "Line 23", "Line 22", "Line 17")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Picture 7", "Picture 8", _
"Line 24" _
, "Line 23", "Line 22", "Line 17", "Picture 10")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Picture 7", "Picture 8", _
"Line 24" _
, "Line 23", "Line 22", "Line 17", "Picture 10" _
, "Picture 9")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Picture 7", "Picture 8", _
"Line 24" _
, "Line 23", "Line 22", "Line 17", "Picture 10" _
, "Picture 9", "Rectangle 2")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Picture 7", "Picture 8", _
"Line 24" _
, "Line 23", "Line 22", "Line 17", "Picture 10" _
, "Picture 9", "Rectangle 2", "Picture 11")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Picture 7", "Picture 8", _
"Line 24" _
, "Line 23", "Line 22", "Line 17", "Picture 10" _
, "Picture 9", "Rectangle 2", "Picture 11", "Picture 12")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Picture 7", "Picture 8", _
"Line 24" _
, "Line 23", "Line 22", "Line 17", "Picture 10" _
, "Picture 9", "Rectangle 2", "Picture 11", "Picture 12" _
, "Rectangle 3")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Picture 7", "Picture 8", _
"Line 24" _
, "Line 23", "Line 22", "Line 17", "Picture 10" _
, "Picture 9", "Rectangle 2", "Picture 11", "Picture 12" _
, "Rectangle 3", "Rectangle 4")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Picture 7", "Picture 8", _
"Line 24" _
, "Line 23", "Line 22", "Line 17", "Picture 10" _
, "Picture 9", "Rectangle 2", "Picture 11", "Picture 12" _
, "Rectangle 3", "Rectangle 4", "Rectangle 5")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Picture 7", "Picture 8", _
"Line 24" _
, "Line 23", "Line 22", "Line 17", "Picture 10" _
, "Picture 9", "Rectangle 2", "Picture 11", "Picture 12" _
, "Rectangle 3", "Rectangle 4", "Rectangle 5", "Picture 16")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Picture 7", "Picture 8", _
"Line 24" _
, "Line 23", "Line 22", "Line 17", "Picture 10" _
, "Picture 9", "Rectangle 2", "Picture 11", "Picture 12" _
, "Rectangle 3", "Rectangle 4", "Rectangle 5", "Picture 16")).Select
ActiveSheet.Shapes.Range(Array("Picture 15")).Select False
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Picture 7", "Picture 8", _
"Line 24" _
, "Line 23", "Line 22", "Line 17", "Picture 10" _
, "Picture 9", "Rectangle 2", "Picture 11", "Picture 12" _
, "Rectangle 3", "Rectangle 4", "Rectangle 5", "Picture 16")).Select
ActiveSheet.Shapes.Range(Array("Picture 15", "Picture 14")).Select False
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Picture 7", "Picture 8", _
"Line 24" _
, "Line 23", "Line 22", "Line 17", "Picture 10" _
, "Picture 9", "Rectangle 2", "Picture 11", "Picture 12" _
, "Rectangle 3", "Rectangle 4", "Rectangle 5", "Picture 16")).Select
ActiveSheet.Shapes.Range(Array("Picture 15", "Picture 14", "Picture 13")). _
Select False
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Picture 7", "Picture 8", _
"Line 24" _
, "Line 23", "Line 22", "Line 17", "Picture 10" _
, "Picture 9", "Rectangle 2", "Picture 11", "Picture 12" _
, "Rectangle 3", "Rectangle 4", "Rectangle 5", "Picture 16")).Select
ActiveSheet.Shapes.Range(Array("Picture 15", "Picture 14", "Picture 13", _
"AutoShape 25")).Select False
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Picture 7", "Picture 8", _
"Line 24" _
, "Line 23", "Line 22", "Line 17", "Picture 10" _
, "Picture 9", "Rectangle 2", "Picture 11", "Picture 12" _
, "Rectangle 3", "Rectangle 4", "Rectangle 5", "Picture 16")).Select
ActiveSheet.Shapes.Range(Array("Picture 15", "Picture 14", "Picture 13", _
"AutoShape 25" _
, "Chart 1")).Select False
Selection.ShapeRange.Group.Select
'''''''''''''''''''''''''''''''''
ActiveWindow.SmallScroll Down:=3
ActiveSheet.Shapes("Rectangle 6").Select
Selection.Characters.Text = " Week Of"
With Selection.Characters(Start:=1, Length:=3).Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 10

End With
With Selection.Characters(Start:=4, Length:=1).Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 10

End With
With Selection.Characters(Start:=5, Length:=7).Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 9

End With
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Line 17")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Line 17", "Line 22")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Line 17", "Line 22", "Line 23")) _
.Select
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Line 17", "Line 22", "Line 23" _
, "Line 24")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Line 17", "Line 22", "Line 23" _
, "Line 24", "Picture 7")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Line 17", "Line 22", "Line 23" _
, "Line 24", "Picture 7", "Picture 8")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Line 17", "Line 22", "Line 23" _
, "Line 24", "Picture 7", "Picture 8", "Picture 10")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Line 17", "Line 22", "Line 23" _
, "Line 24", "Picture 7", "Picture 8", "Picture 10" _
, "Picture 9")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Line 17", "Line 22", "Line 23" _
, "Line 24", "Picture 7", "Picture 8", "Picture 10" _
, "Picture 9", "Rectangle 2")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Line 17", "Line 22", "Line 23" _
, "Line 24", "Picture 7", "Picture 8", "Picture 10" _
, "Picture 9", "Rectangle 2", "Picture 11")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Line 17", "Line 22", "Line 23" _
, "Line 24", "Picture 7", "Picture 8", "Picture 10" _
, "Picture 9", "Rectangle 2", "Picture 11", "Picture 12")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Line 17", "Line 22", "Line 23" _
, "Line 24", "Picture 7", "Picture 8", "Picture 10" _
, "Picture 9", "Rectangle 2", "Picture 11", "Picture 12" _
, "Rectangle 3")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Line 17", "Line 22", "Line 23" _
, "Line 24", "Picture 7", "Picture 8", "Picture 10" _
, "Picture 9", "Rectangle 2", "Picture 11", "Picture 12" _
, "Rectangle 3", "Picture 13")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Line 17", "Line 22", "Line 23" _
, "Line 24", "Picture 7", "Picture 8", "Picture 10" _
, "Picture 9", "Rectangle 2", "Picture 11", "Picture 12" _
, "Rectangle 3", "Picture 13", "Picture 14")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Line 17", "Line 22", "Line 23" _
, "Line 24", "Picture 7", "Picture 8", "Picture 10" _
, "Picture 9", "Rectangle 2", "Picture 11", "Picture 12" _
, "Rectangle 3", "Picture 13", "Picture 14", "Rectangle 4")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Line 17", "Line 22", "Line 23" _
, "Line 24", "Picture 7", "Picture 8", "Picture 10" _
, "Picture 9", "Rectangle 2", "Picture 11", "Picture 12" _
, "Rectangle 3", "Picture 13", "Picture 14", "Rectangle 4")).Select
ActiveSheet.Shapes.Range(Array("Picture 15")).Select False
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Line 17", "Line 22", "Line 23" _
, "Line 24", "Picture 7", "Picture 8", "Picture 10" _
, "Picture 9", "Rectangle 2", "Picture 11", "Picture 12" _
, "Rectangle 3", "Picture 13", "Picture 14", "Rectangle 4")).Select
ActiveSheet.Shapes.Range(Array("Picture 15", "Picture 16")).Select False
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Line 17", "Line 22", "Line 23" _
, "Line 24", "Picture 7", "Picture 8", "Picture 10" _
, "Picture 9", "Rectangle 2", "Picture 11", "Picture 12" _
, "Rectangle 3", "Picture 13", "Picture 14", "Rectangle 4")).Select
ActiveSheet.Shapes.Range(Array("Picture 15", "Picture 16", "Rectangle 5")). _
Select False
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Line 17", "Line 22", "Line 23" _
, "Line 24", "Picture 7", "Picture 8", "Picture 10" _
, "Picture 9", "Rectangle 2", "Picture 11", "Picture 12" _
, "Rectangle 3", "Picture 13", "Picture 14", "Rectangle 4")).Select
ActiveSheet.Shapes.Range(Array("Picture 15", "Picture 16", "Rectangle 5", _
"AutoShape 25")).Select False
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Line 17", "Line 22", "Line 23" _
, "Line 24", "Picture 7", "Picture 8", "Picture 10" _
, "Picture 9", "Rectangle 2", "Picture 11", "Picture 12" _
, "Rectangle 3", "Picture 13", "Picture 14", "Rectangle 4")).Select
ActiveSheet.Shapes.Range(Array("Picture 15", "Picture 16", "Rectangle 5", _
"AutoShape 25" _
, "Chart 1")).Select False
Selection.ShapeRange.Group.Select
'''''''''''''''''''''''''''''''''''''
ActiveSheet.Shapes("Rectangle 6").Select
Selection.Characters.Text = " Week Of"
With Selection.Characters(Start:=1, Length:=3).Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 10

End With
With Selection.Characters(Start:=4, Length:=1).Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 10
End With
With Selection.Characters(Start:=5, Length:=7).Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 9

End With
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Line 17")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Line 17", "Line 22")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Line 17", "Line 22", "Line 23")) _
.Select
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Line 17", "Line 22", "Line 23" _
, "Line 24")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Line 17", "Line 22", "Line 23" _
, "Line 24", "Picture 7")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Line 17", "Line 22", "Line 23" _
, "Line 24", "Picture 7", "Picture 8")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Line 17", "Line 22", "Line 23" _
, "Line 24", "Picture 7", "Picture 8", "Picture 9")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Line 17", "Line 22", "Line 23" _
, "Line 24", "Picture 7", "Picture 8", "Picture 9" _
, "Picture 10")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Line 17", "Line 22", "Line 23" _
, "Line 24", "Picture 7", "Picture 8", "Picture 9" _
, "Picture 10", "Rectangle 2")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Line 17", "Line 22", "Line 23" _
, "Line 24", "Picture 7", "Picture 8", "Picture 9" _
, "Picture 10", "Rectangle 2", "Picture 11")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Line 17", "Line 22", "Line 23" _
, "Line 24", "Picture 7", "Picture 8", "Picture 9" _
, "Picture 10", "Rectangle 2", "Picture 11", "Picture 12")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Line 17", "Line 22", "Line 23" _
, "Line 24", "Picture 7", "Picture 8", "Picture 9" _
, "Picture 10", "Rectangle 2", "Picture 11", "Picture 12" _
, "Rectangle 3")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Line 17", "Line 22", "Line 23" _
, "Line 24", "Picture 7", "Picture 8", "Picture 9" _
, "Picture 10", "Rectangle 2", "Picture 11", "Picture 12" _
, "Rectangle 3", "Picture 13")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Line 17", "Line 22", "Line 23" _
, "Line 24", "Picture 7", "Picture 8", "Picture 9" _
, "Picture 10", "Rectangle 2", "Picture 11", "Picture 12" _
, "Rectangle 3", "Picture 13", "Picture 14")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Line 17", "Line 22", "Line 23" _
, "Line 24", "Picture 7", "Picture 8", "Picture 9" _
, "Picture 10", "Rectangle 2", "Picture 11", "Picture 12" _
, "Rectangle 3", "Picture 13", "Picture 14", "Rectangle 4")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Line 17", "Line 22", "Line 23" _
, "Line 24", "Picture 7", "Picture 8", "Picture 9" _
, "Picture 10", "Rectangle 2", "Picture 11", "Picture 12" _
, "Rectangle 3", "Picture 13", "Picture 14", "Rectangle 4")).Select
ActiveSheet.Shapes.Range(Array("Picture 15")).Select False
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Line 17", "Line 22", "Line 23" _
, "Line 24", "Picture 7", "Picture 8", "Picture 9" _
, "Picture 10", "Rectangle 2", "Picture 11", "Picture 12" _
, "Rectangle 3", "Picture 13", "Picture 14", "Rectangle 4")).Select
ActiveSheet.Shapes.Range(Array("Picture 15", "Picture 16")).Select False
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Line 17", "Line 22", "Line 23" _
, "Line 24", "Picture 7", "Picture 8", "Picture 9" _
, "Picture 10", "Rectangle 2", "Picture 11", "Picture 12" _
, "Rectangle 3", "Picture 13", "Picture 14", "Rectangle 4")).Select
ActiveSheet.Shapes.Range(Array("Picture 15", "Picture 16", "Rectangle 5")). _
Select False
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Line 17", "Line 22", "Line 23" _
, "Line 24", "Picture 7", "Picture 8", "Picture 9" _
, "Picture 10", "Rectangle 2", "Picture 11", "Picture 12" _
, "Rectangle 3", "Picture 13", "Picture 14", "Rectangle 4")).Select
ActiveSheet.Shapes.Range(Array("Picture 15", "Picture 16", "Rectangle 5", _
"AutoShape 25")).Select False
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Line 17", "Line 22", "Line 23" _
, "Line 24", "Picture 7", "Picture 8", "Picture 9" _
, "Picture 10", "Rectangle 2", "Picture 11", "Picture 12" _
, "Rectangle 3", "Picture 13", "Picture 14", "Rectangle 4")).Select
ActiveSheet.Shapes.Range(Array("Picture 15", "Picture 16", "Rectangle 5", _
"AutoShape 25" _
, "Chart 1")).Select False
Selection.ShapeRange.Group.Select
Range("P8").Select
''''''''''''''''''''''''''''''''''''''''
ActiveWindow.SmallScroll Down:=9
ActiveSheet.Shapes("Rectangle 8").Select
Selection.Characters.Text = " Week Of"
With Selection.Characters(Start:=1, Length:=3).Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 10

End With
With Selection.Characters(Start:=4, Length:=1).Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 10

End With
With Selection.Characters(Start:=5, Length:=7).Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 9

End With
ActiveSheet.Shapes.Range(Array("Rectangle 8", "Line 23")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 8", "Line 23", "Line 31")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 8", "Line 23", "Line 31", "Line 32")) _
.Select
ActiveSheet.Shapes.Range(Array("Rectangle 8", "Line 23", "Line 31", "Line 32" _
, "Line 33")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 8", "Line 23", "Line 31", "Line 32" _
, "Line 33", "Picture 10")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 8", "Line 23", "Line 31", "Line 32" _
, "Line 33", "Picture 10", "Picture 9")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 8", "Line 23", "Line 31", "Line 32" _
, "Line 33", "Picture 10", "Picture 9", "Picture 13")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 8", "Line 23", "Line 31", "Line 32" _
, "Line 33", "Picture 10", "Picture 9", "Picture 13" _
, "Picture 15")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 8", "Line 23", "Line 31", "Line 32" _
, "Line 33", "Picture 10", "Picture 9", "Picture 13" _
, "Picture 15", "Rectangle 2")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 8", "Line 23", "Line 31", "Line 32" _
, "Line 33", "Picture 10", "Picture 9", "Picture 13" _
, "Picture 15", "Rectangle 2", "Picture 16")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 8", "Line 23", "Line 31", "Line 32" _
, "Line 33", "Picture 10", "Picture 9", "Picture 13" _
, "Picture 15", "Rectangle 2", "Picture 16", "Picture 17")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 8", "Line 23", "Line 31", "Line 32" _
, "Line 33", "Picture 10", "Picture 9", "Picture 13" _
, "Picture 15", "Rectangle 2", "Picture 16", "Picture 17" _
, "Rectangle 3")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 8", "Line 23", "Line 31", "Line 32" _
, "Line 33", "Picture 10", "Picture 9", "Picture 13" _
, "Picture 15", "Rectangle 2", "Picture 16", "Picture 17" _
, "Rectangle 3", "Picture 18")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 8", "Line 23", "Line 31", "Line 32" _
, "Line 33", "Picture 10", "Picture 9", "Picture 13" _
, "Picture 15", "Rectangle 2", "Picture 16", "Picture 17" _
, "Rectangle 3", "Picture 18", "Picture 19")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 8", "Line 23", "Line 31", "Line 32" _
, "Line 33", "Picture 10", "Picture 9", "Picture 13" _
, "Picture 15", "Rectangle 2", "Picture 16", "Picture 17" _
, "Rectangle 3", "Picture 18", "Picture 19", "Rectangle 4")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 8", "Line 23", "Line 31", "Line 32" _
, "Line 33", "Picture 10", "Picture 9", "Picture 13" _
, "Picture 15", "Rectangle 2", "Picture 16", "Picture 17" _
, "Rectangle 3", "Picture 18", "Picture 19", "Rectangle 4")).Select
ActiveSheet.Shapes.Range(Array("Picture 20")).Select False
ActiveSheet.Shapes.Range(Array("Rectangle 8", "Line 23", "Line 31", "Line 32" _
, "Line 33", "Picture 10", "Picture 9", "Picture 13" _
, "Picture 15", "Rectangle 2", "Picture 16", "Picture 17" _
, "Rectangle 3", "Picture 18", "Picture 19", "Rectangle 4")).Select
ActiveSheet.Shapes.Range(Array("Picture 20", "Picture 21")).Select False
ActiveSheet.Shapes.Range(Array("Rectangle 8", "Line 23", "Line 31", "Line 32" _
, "Line 33", "Picture 10", "Picture 9", "Picture 13" _
, "Picture 15", "Rectangle 2", "Picture 16", "Picture 17" _
, "Rectangle 3", "Picture 18", "Picture 19", "Rectangle 4")).Select
ActiveSheet.Shapes.Range(Array("Picture 20", "Picture 21", "Rectangle 5")). _
Select False
ActiveSheet.Shapes.Range(Array("Rectangle 8", "Line 23", "Line 31", "Line 32" _
, "Line 33", "Picture 10", "Picture 9", "Picture 13" _
, "Picture 15", "Rectangle 2", "Picture 16", "Picture 17" _
, "Rectangle 3", "Picture 18", "Picture 19", "Rectangle 4")).Select
ActiveSheet.Shapes.Range(Array("Picture 20", "Picture 21", "Rectangle 5", _
"AutoShape 34")).Select False
ActiveSheet.Shapes.Range(Array("Rectangle 8", "Line 23", "Line 31", "Line 32" _
, "Line 33", "Picture 10", "Picture 9", "Picture 13" _
, "Picture 15", "Rectangle 2", "Picture 16", "Picture 17" _
, "Rectangle 3", "Picture 18", "Picture 19", "Rectangle 4")).Select
ActiveSheet.Shapes.Range(Array("Picture 20", "Picture 21", "Rectangle 5", _
"AutoShape 34" _
, "Chart 1")).Select False
Selection.ShapeRange.Group.Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-33
On Error GoTo 0
.ScreenUpdating = True
End With
End Sub

[Jacob Hilderbrand]

Are you trying to do this?


Option Explicit

Sub Macro1()

Dim Shp As Shape

On Error Resume Next
For Each Shp In ActiveSheet.Shapes
Shp.Select
With Selection
.Characters.Text = " Week Of"
With .Characters(Start:=1, Length:=3).Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 10
End With
With .Characters(Start:=4, Length:=1).Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 10
End With
With .Characters(Start:=5, Length:=7).Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 9
End With
End With
Next

On Error GoTo 0

Set Shp = Nothing

End Sub

[Shazam]

I meant that I have charts and text boxes and pictures also lines that I would like to group all of them together. What I did was I recorded the macro then I select the chart then I hold down the ctrl key and the select text boxes, pictures and lines. Then I right click select grouping then I select group. Can the macro be modified to select all shapes and charts and pictures on the active worksheet then group them all together?

[Jacob Hilderbrand]

Certainly :)


Option Explicit

Sub Macro1()

ActiveSheet.Shapes.SelectAll
Selection.ShapeRange.Group

End Sub

[Shazam]

Thanks DRJ!

[Jacob Hilderbrand]

You're Welcome :beerchug:

Take Care