Hi Max,
The following appears to work.
You might want to experiment a little with it...
'--
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' GS
Dim cmt As Comment
Set cmt = Target.Comment
Application.DisplayCommentIndicator = xlNoIndicator
If cmt Is Nothing Then Exit Sub
Target.Comment.Visible = True
End Sub
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)
"Max"
wrote in message
How could the sub below be amended so that when the activecell is changed to
another via the arrow keys, the comment which was displayed (in the previous
activecell) is hidden again (like mousing over). Currently it stays
displayed. Thanks
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' GS
Dim cmt As Comment
Set cmt = Target.Comment
If cmt Is Nothing Then
Exit Sub
End If
Target.Comment.Visible = True
End Sub