Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address <> "$C$4" Then Exit Sub
If Target > 100 Then
Target.ClearComments
Target.AddComment ("Comment 1")
Exit Sub
End If
If Target > 50 Then
Target.ClearComments
Target.AddComment ("Comment 2")
Exit Sub
End If
'etc
End Sub
Is there anyway i can make the comment show without having to format the cell to "show comment"???
Target.Comment.Visible = True
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address <> "$C$4" Then Exit Sub
If Target > 100 Then
Target.ClearComments
Target.AddComment ("Comment 1")
Target.Comment.Visible = True
Exit Sub
End If
If Target > 50 Then
Target.ClearComments
Target.AddComment ("Comment 2")
Target.Comment.Visible = True
Exit Sub
End If
'etc
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target.Comment.Visible = False
Cancel = True
End Sub