Добавлений примечания в выделенную ячейку

[bud-dy]

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

[The_Prist]

Здравствуйте. Поправил.

[EducatedFool]

Вот так будет работать:

Sub Комментарий_в_ячейку_в_диапазоне()
    Application.DisplayCommentIndicator = xlCommentIndicatorOnly
    Application.ScreenUpdating = False
    Set cc = Selection
    'если выделили 1 ячейку
    If cc.Cells.Count = 1 Then cc.AddComment CStr(cc.Value): Exit Sub
    For Each c In cc.SpecialCells(xlCellTypeVisible).Cells
        c.AddComment CStr(c.Value)
    Next
    Application.ScreenUpdating = True
End Sub

Если убрать всё лишнее - получится так:

Sub Комментарии_в_НЕПУСТЫЕ_ячейки_в_диапазоне()
    Application.ScreenUpdating = False
    ' только для непустых ячеек
    For Each c In Selection.Cells
       If Len(c.Text) Then c.AddComment CStr(c.Value)
    Next
End Sub