Hide/Unhide control all sheets.

[Aussie Grid]

This code is perfect but I would like it to perform on all sheets, rather than just the active.

Sub Shapes2()
'Loop through the Shapes collection and use the Type number of the control
Dim myshape As Shape
For Each myshape In ActiveSheet.Shapes

' ActiveX control (control toolbox) or a linked or embedded OLE object.
If myshape.Type = 12 Then myshape.Visible = False


Next myshape
End Sub

Any & all help appreciated.
Aussie Grid

 

[gramit]

Sub Shapes2()
Application.Screenupdating = False
Dim WS as Worksheet, myshape As Shape
For Each WS in Worksheets
WS.Activate
'Loop through the Shapes collection and use the Type number of the control
    For Each myshape In ActiveSheet.Shapes
 
        ' ActiveX control (control toolbox) or a linked or embedded OLE object.
        If myshape.Type = 12 Then myshape.Visible = False

 
    Next myshape
Next WS
Application.Screenupdating = True
End Sub

 

[VoG]

Try

Sub Shapes2()
'Loop through the Shapes collection and use the Type number of the control
Dim myshape As Shape, ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
    For Each myshape In ws.Shapes
        ' ActiveX control (control toolbox) or a linked or embedded OLE object.
        If myshape.Type = 12 Then myshape.Visible = False
    Next myshape
Next ws
End Sub

 

[Aussie Grid]

Thank you Gramit and VOG for your speedy replies they both work beautifully. The speed award must go to Gramit though. I hit "Post" logged out, looked at forum and couldn't believe my eyes when I saw a reply. Must have been all of 30 seconds.Then by the time I'd read that Vog's was there. Extremely impressive!
Again thank you both very much.

Aussie Grid