10/18/2019 - 11:39 PM

Toggle Shapes

Loops through every shape in the active sheet and hides them

' Prodedure: toggleShapes()
' Purpose: Shows and hides all shapes in a sheet
' Created By: HG
' Last Updated: 5/7/2019
Sub toggleShapes()
    Dim shp As Shape

    For Each shp In ActiveSheet.Shapes
        If shp.Visible = False Then
            shp.Visible = True
            shp.Visible = False
        End If
    Next shp

End Sub