вопрос по объекту Comment

[Обыватель]

Здравствуйте!

Помогите, пожалуйста, чайнику

вот простой макрос:

Sub запомнить ()
ActiveCell.AddComment "что-то написано"
End Sub

мне надо, чтобы вместо текста в примечание вставилось содержимое активной ячейки

пробовал через объявление переменной - не получилось

[SAS888]

Примерно так:

Sub запомнить()
    ActiveCell.AddComment ActiveCell.Text
End Sub

[SAS888]

---------------

[Обыватель]

аа, вот оно что спасибо! не знал, что метод техт можно так применить

[SAS888]

Но это будет корректно работать только тогда, когда активная ячейка не содержит комментария исходно. Надежнее удалять комментарий и вставлять вновь. Например, так:

Sub запомнить()
    With ActiveCell: .ClearComments: .AddComment .Text: End With
End Sub