[Iska]

Вставьте следующий код:

Код:

Option Explicit

Private Sub Workbook_Open()
    Dim strText As String
    
    strText = Trim(InputBox("Введите текст примечания для ячейки A1:", "Добавление примечания"))
    
    If Len(strText) <> 0 Then
        With ThisWorkbook.Sheets.Item(1).Range("A1")
            .ClearComments
            .AddComment CStr(Now()) & ":" & vbLf & strText
        End With
    End If
End Sub

в модуль «ЭтаКнига» рабочей книги Microsoft Excel.

[Natasall]

Спасибо огромное ВЫ моё спасение))))

[Delirium]

Natasall, вы на будущее посмотрите, что такое макросы, которые можно записывать в Excel. Включаем запись, делаем нужные задачи и выключаем макрос. Идем в конструктор и смотрим на код. Удаляем лишнее, облагораживаем и получаем нужный результат