Dear All,
I use this code to add comments.
If A1 is different from B1 than comments "Value not equal"
Code
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rCell As Range
Dim rReff As Range
Set rCell = Range("A1")
Set rReff = Range("B1")
On Error Resume Next
rCell.Comment.Delete
On Error GoTo 0
If rCell.Value <> rReff.Value Then rCell.AddComment ("Value not equal")
End Sub
Display More
How to make it work for range? Say i want to compare Range Ä1:A10 to B1:B10.
Thank you for your help.
Regards,
Davetan