hidden comments boxes

  • Thread starter Thread starter Shawn
  • Start date Start date
S

Shawn

I get excel files sent to me. Some have comments that are visable and some
have them that are hidden. I need a code that will leave visable comments
visable and unhide any hidden comments boxes.
 
This will scan thru each worksheet in the entire workbook and then find all
comments and make the visible. You could put this code in the workbook Open
Event or just put this code into a standard module and call it with a button.
Hope this helps! If so, let me know, click "YES" below.

Private Sub Workbook_Open()

Dim wks As Worksheet
Dim cmt As Comment

' scan each worksheet in a workbook
For Each wks In Worksheets

' scan each comment in the worksheet
For Each cmt In wks.Comments
cmt.Visible = True
Next cmt
Next wks

End Sub
 
Back
Top