Code to hide all comments

[RAM]

Hi Guys,

I could need a code to hides all comments in the open sheet.

Thanks

RAM

 

[Chas17]

Try one of these

    Application.DisplayCommentIndicator = xlCommentIndicatorOnly
    
    Application.DisplayCommentIndicator = xlNoIndicator

    Application.DisplayCommentIndicator = 0

Chas

 

[RAM]

Thanks Chas, I'll will. Meanwhile, what is the difference between the second and the third code?

RAM

 

[RAM]

Second and third code returns the same results, but it also removes the red triangle that indicates a comment, and I'm not really enthusiastic over that. It does not only remove the triangle in the open sheet but in all sheets in all open workbooks

RAM

 

[Chas17]

RAM, that is correct, first will leave red triangle

 

[Chas17]

RAM,
This will Hide the first 10 comments on the first sheet, which may not be Sheet1, adjust as you need.

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

or

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

Chas

 

[RAM]

Thanks,

I'll try it later. I'll let you know.

RAM

 

[RAM]

Thanks. The second one seems to work great. This second code is also faster than the first codes we tried out. It doesn't lag me in my tabbing down the column. The red triangle doesn't seem to disappear either.


RAM