Você pode usar este código no seu VBA no Worksheet
( não um módulo ) do qual o valor vem.
O sheet1
é a planilha na qual você quer que o comentário vá para
O Intersect range
é o valor que você deseja usar como comentário e o with range
é a célula na qual você quer o comentário.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cmt As String
'Check Target Range has value
If Not Intersect(Target, Range("A1")) Is Nothing Then
'Check value isn't blank
If Target.Value <> "" Then
'Take target contents and store to string
cmt = Target.Value
'Change sheets and set comment of desired range
With ThisWorkbook.Sheets("Sheet1")
.Range("A1").ClearComments
.Range("A1").AddComment Text:=cmt
End With
End If
End If
End Sub