[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.