Se7enSquared
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
        Else
            shp.Visible = False
        End If
        
    Next shp

End Sub