как изменить размер текста в примечании макросом

[Сергей Ш.]

Добрый день.
Необходима ваша помощь, нужно изменить размер текста в примечании. На листе 1, для удобства работы с таблицей, стоит масштаб 50 и из-за этого текст в примечании получается очень мелким.
Макрос уже есть, автоматически вставляет примечание при заполнение ячейки в столбце А, а вот текст получается очень мелким.
Для примера вложил файл, посмотрите пожалуйста.

[Сергей Ш.]

Макрос:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim flag$, AddText
    If Target.Count > 1 Then Exit Sub
    If Target.Column <> 1 Then Exit Sub
    On Error Resume Next
    If Len(Target) Then
        With Target
            flag = .Comment.Text
            If Err Then
                Err.Clear
                .AddComment
                .Comment.Text Text:=Application.UserName & ":" & Chr$(10) & Date & ". Дата прохожд.: " & .Value
            Else
                If flagFormula = .Formula Then Exit Sub
                If .HasFormula Then
                    AddText = Format(Split(.Formula, "+")(UBound(Split(.Formula, "+"))), "")
                    If UBound(Split(.Formula, "+")) = 0 Then AddText = Format(Replace(.Formula, "=", ""), "")
                Else
                    AddText = .Text
                End If
                .Comment.Text Text:=.Comment.Text & Chr(10) & Application.UserName & ":" & Chr(10) & Date & ". Дата прохожд.: " & AddText
            End If
            .Comment.Shape.TextFrame.AutoSize = True
              
        End With
    End If
End Sub

[shanemac51]

Sub Макрос3()
'

With Range("A3")
.Comment.Shape.TextFrame.Characters (1, 10).Font.Size = 20
End With
End Sub

[Сергей Ш.]

Спасибо, подставил .Comment.Shape.TextFrame.Characters .Font.Size = 14 и все получилось )