Sub HideComments()
'9/15/2006 by Charles R. Weber
' hides first 10 comments on "first sheet" (which may NOT be Sheet1)
Dim i As Integer
For i = 1 To 10
On Error Resume Next
Worksheets(1).Comments(i).Visible = False
Next i
End Sub
Sub HideComments()
'9/15/2006 by Charles R. Weber
' hides first 10 comments on ActiveSheet
Dim i As Integer
For i = 1 To 10
On Error Resume Next
ActiveSheet.Comments(i).Visible = False
Next i
End Sub