Запись истории результата вычислений (по формуле) в виде примечания

[Vasilii78]

Приветствую всех)
Есть такой макрос

Private Sub Worksheet_Change(ByVal Target As Range)
Dim NewCellValue$, OldComment$
Dim cell As Range
     
    'если ячейка не в отслеживаемом диапазоне, то выходим
    If Intersect(Target, Range("B3:B5")) Is Nothing Then Exit Sub
     
    'перебираем все ячейки в измененной области
    For Each cell In Intersect(Target, Range("B3:B5"))
        If IsEmpty(cell) Then
            NewCellValue = "Ячейка очищена" 'фиксируем очистку ячейки
        Else
            NewCellValue = cell.Formula     'или ее содержимое
        End If
        On Error Resume Next
         
        With cell
            OldComment = .Comment.Text & Chr(10)
            .Comment.Delete     'удаляем старое примечание (если было)
            .AddComment         'добавляем новое и вводим в него текст
            .Comment.Text Text:=OldComment & Application.UserName & " " & _
                            Format(Now, "MM.DD.YY h:MM:ss") & " : " & NewCellValue
            .Comment.Shape.TextFrame.AutoSize = True    'делаем автоподбор размера
            .Comment.Shape.TextFrame.Characters.Font.Size = 8
        End With
    Next cell
End Sub

Этот макрос записывает в примечания историю изменения значения каждой ячейки в заданном диапазоне, но только если значение введено вручную (с клавиатуры).
А если ячейка (например С1) представляет из себя результат вычисления по формуле (например =A1*B1), то макрос ничего не записывает.
Вопрос - а можно ли переделать макрос так, чтобы он записывал результат вычисления по формуле в примечания?

Рядом есть похожая тема, в которой автору удалось научить макрос обработке результатов вычисления по формуле, но результат он не выложил, хотя его и просили
Правда, там история писалась не в примечания.
http://programmersforum.ru/showthrea...d=1#post903367

Заранее спасибо за любую помощь.