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
            comm.Visible = False
        End If
    Next comm

End Sub