Макрос вставки текущей даты и времени в примечание.

[Severny]

Доброго времени суток!
Прошу помочь со следующей задачей: необходимо, что бы в выбраные ячейки автоматом добавлялось примечание с текущей датой и временем и желательно без имени учетной записи которое по умолчанию добавляется. Тоесть выбрать нужные ячейки, запустить макрос и получить скрытые примечания в этих ячейках с текущей датой и временем.
Буду благодарен!

[VictorM]

Вот так можно.
Опять же, это общий случай.

Sub Примечания()
    Set IRange = Range("A1:A10")
    iText$ = Now
    For Each iCell In IRange
        iCell.NoteText Text:=iText$
    Next
End Sub

[IgorGO]

Set IRange = selection
дальше по тексту

[Severny]

VictorM
IgorGO

Спасибо большое!