Добавление в диапазон примечаний с заданным текстом

[sonata]

Не понимаю, что здесь не так?

Только и всего надо, что добавить в диапазон примечания с заданным
текстом, но, в обоих случаях ошибка...
Может кто-нибудь взглянет свежим взглядом? 8)

Код: Выделить всё

Public Sub Добавление_примечаний()
'Invalid or unqualified reference
'ActiveSheet.Range(.Cells(1, 1), .Cells(10, 10)).AddComment "Ку-Ку"

'Invalid procedure or argument
'ActiveSheet.Range(Cells(1, 1), Cells(10, 10)).AddComment "Ку-Ку"
End Sub

[corgi]

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

[GSerg]

Всё так, к одной.
Придётся перебирать в цикле.