Se7enSquared
10/18/2019 - 11:39 PM

Toggle comments in a worksheet

Loops through every sheet and sets all comments to hidden

'---------------------------------------------------
' Prodedure: toggleComments()
' Purpose: Shows and hides all comments in a sheet
' Created By: HG
' Last Updated: 5/7/2019
'--------------------------------------------------
Sub toggleComments()
    Dim comm As Comment

    For Each comm In ActiveSheet.Comments
        If comm.Visible = False Then
            comm.Visible = True
        Else
            comm.Visible = False
        End If
        
    Next comm

End Sub