Makro der viser/skjuler alle kommentarfelter?

2 stk
Sub show_comments()
Dim cmt As Comments
Dim c As Comment
    Set cmt = ActiveSheet.Comments
    For Each c In cmt
        c.Visible = True
    Next
End Sub

Sub Hide_comments()
Dim cmt As Comments
Dim c As Comment
    Set cmt = ActiveSheet.Comments
    For Each c In cmt
        c.Visible = False
    Next
End Sub

Det fungerer fint! Tak. Smid et svar.

kommer her :-)