unhiding all shapes in the active sheet

[andrewb90]

Hello all,

I am hoping this is a pretty simple thing that I am not getting. I know how to individually hide or unhide a shape in the active sheet, but how would I hide/unhide multiple or all of them at once?

Thanks,

Andrew

 

[JoeMo]

To unhide:

Sub UnhideShapes()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
    shp.Visible = msoTrue
Next shp
End Sub

To hide all change msoTrue to msoFalse

 

[andrewb90]

awesome thank you!