Excel 97 Comment Indicators

  • Thread starter Thread starter Jon
  • Start date Start date
J

Jon

Is there a way to hide the comment indicators (red triangles) in cells that
contain comments in Excel 97?

Thanks
 
Hi Jon
this works for Excel 2003, but try the menu 'Tools - Options - View'
and uncheck comments
 
Hi, Frank

This also works in Excel 97. However, it removes both the comment and the
indicator. I want to keep the comment, but remove (or hide) the comment
indicator. I have a worksheet in which every cell has a comment. The
indicators are distracting to the user. Thanks for your quick response.

Regards,
Jon
 
<<"However, it removes both the comment and the indicator.">>

Not true !

It does *not* "remove" the comment, it "hides" it.

Since you say that all the cells in this particular sheet have comments, all
you have to do is right click in any cell and choose "EditComments".
This will display the comment with the focus in the comment box.
This allows you to read the comment, and then you can just click "away", and
the comment is preserved and hidden again.
--

HTH,

RD
==============================================
Please keep all correspondence within the Group, so all may benefit!
==============================================

Hi, Frank

This also works in Excel 97. However, it removes both the comment and the
indicator. I want to keep the comment, but remove (or hide) the comment
indicator. I have a worksheet in which every cell has a comment. The
indicators are distracting to the user. Thanks for your quick response.

Regards,
Jon
 
If a VBA solution is acceptable, put the code below in the ThisWorkbook
module of the workbook. Now, when a single cell is selected and it has
a comment, the comment will become visible and stay visible until some
other cell is selected.

Option Explicit
Dim aComment As Comment

Sub showComment(ByVal Target As Range)
On Error Resume Next
Set aComment = Target.Comment
aComment.Visible = True
On Error GoTo 0
End Sub
Sub hideComment()
On Error Resume Next
aComment.Visible = False
Set aComment = Nothing
On Error GoTo 0
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If TypeOf Selection Is Range Then
showComment Selection
End If
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
hideComment
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Excel.Range)
hideComment
showComment Target
End Sub
--
Regards,

Tushar Mehta
www.tushar-mehta.com
Excel, PowerPoint, and VBA add-ins, tutorials
Custom MS Office productivity solutions
 
Back
Top