Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static pl_sav As Range
Dim pl As Range
If Not pl_sav Is Nothing Then pl_sav.Comment.Delete
Set pl_sav = Nothing
Set pl = Intersect(Target, Range("A:B,D:D"))
If Not pl Is Nothing Then
Set pl = pl(1)
If pl.Text <> "" Then
If Not Target.Comment Is Nothing Then pl.Comment.Delete
pl.AddComment Target.Value
Target.Comment.Shape.TextFrame.AutoSize = True
Set pl_sav = pl
End If
End If
End Sub