Public newv As Variant
Public Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Target.ClearComments
Target.AddComment.Text Text: = "Hi Previous value is" & newv
End Sub
Public Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target = ""
Then
newv = "No previous value"
Else: newv = Target.Value
End If
End Sub
Demos
I hope this code snippet useful for Excel macro beginners.
