Перестал работать код

[Оксана33]

Sub PutIn_COMMENT()
    Dim txt$
    txt$ = Application.InputBox("Введите примечание")
    If txt$ = "" Then Exit Sub

    With ActiveCell.AddComment(txt).Shape   'выделяет желтым цветом!!!
        .OLEFormat.Object.Font.Size = 18
        .TextFrame.AutoSize = True
        .Visible = False
    End With
End Sub

пишет "невозможно получить свойство Font класса TextBox", и выделяет желтым строку 6.
Раньше все работало отлично.
Пожалуйста, помогите найти причину.

[IgorGO]

сработало
без сучка и задоринки (видимо, как у Вас раньше)

[Казанский]

Ошибка возникает, если в активной ячейке уже есть примечание. Если Вы хотите заменить примечание на новое, добавьте в пустую строку перед With

    If Not ActiveCell.Comment Is Nothing Then ActiveCell.Comment.Delete

[Оксана33]

это происходит в пустой ячейке. при чем, такого не происходит в другом файле, а только в этом. сначала через раз не работал, а потом и вовсе. какой-то глюк.
дело не в коде, может в настройках где-то.
можно скопировать файл в другой, но он очень большой - это на крайний случай.

[Virtuallab]

По причине возникновения ошибки Казанский прав.
Но попробуйте другую команду:

If Not ActiveCell.Comment Is Nothing Then ActiveCell.ClearNotes

[Оксана33]

нет, дело не в этом, этой проблемы нет с другими файлами.
в этом файле Вкладка не активна полностью, и инструмент Вставить элементы управления также. Мне кажется дело в этом.

[Оксана33]

тема закрыта

После изменения свойства DisplayDrawingObjects со стандартного "-4104 - xlDisplayShapes" на "3 - xlHide", макрос матерится на строку задания размера шрифта.