Setting individual cell comment show/hide command?

Hello Roguetiger,

Welcome to the Forum.

Use the code below:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Dim rng As Range
 Dim comnt As Comment
 Dim s As Shape
 
 Application.DisplayCommentIndicator _
    = xlCommentIndicatorOnly
 
 Set rng = ActiveWindow.VisibleRange
If ActiveCell.Comment Is Nothing Then
  'do nothing
Else
  Set comnt = ActiveCell.Comment
  Set s = comnt.Shape
  comnt.Visible = True
End If

End Sub

Regards