koyaanisqatsi, здравствуйте.
Я придумала так (по событию Selection добавляется примечание):
[vba]Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
lr = Cells(Rows.Count, 1).End(xlUp).Row
Range("d2:x" & lr).ClearComments
If Not Intersect(Target, Range("d2:x" & lr)) Is Nothing Then
dif = Sheets("заявки").Range(Target.Address) - Target.Value
If dif > 0 Then
With Target
.AddComment
.Comment.Visible = True
.Comment.Text Text:=CStr(dif)
End With
End If
End If
End Sub
[/vba]