Ahoj,možná ti pomůže tento příklad:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1") = 1 Then
Application.DisplayCommentIndicator = xlNoIndicator
Else
If Range("A1") = 2 Then
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End If
End If
End Subcitovat
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1") = 1 Then
Application.DisplayCommentIndicator = xlNoIndicator
Else
If Range("A1") = 2 Then
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End If
End If
End Subcitovat