Форматирование примечания и текста - VBA

Формулировка задачи:

Имеется код:

ThisWorkbook.Sheets("Калькулятор").Cells(j + 2, 3) = TestTable5(j + 4, 2) ' Название инструмент
ThisWorkbook.Sheets("Калькулятор").Cells(j + 2, 3).AddComment.Text Text:=TestTable5(j + 4, 7) 'Описание инструмента в примечание

Данный код передаёт данные из Листа "Настройки" в Лист "Калькулятор", "Название инструмента" далее в туже ячейку вставляет примечание с "Описанием инструмента", сделано так для экономии места в таблице да и вообще так проще. Фактически всё устраивает, инструмент прописывает,примечание вставляет, единственный вопрос как правильно отформатировать текст в примечаниях? Шрифт Размер шрифта Выравнивание по центру и середине Соответственно и сам размер окна примечания Спасибо за внимание.

Решение задачи: «Форматирование примечания и текста»

textual
                            Листинг программы 
                        

                            With ThisWorkbook.Worksheets("Калькулятор").Cells(j + 2, 3)
     .Value = TestTable5(j + 4, 2)
     .ClearComments
     With .AddComment(TestTable5(j + 4, 7)).Shape
          .Width = 200
          .Height = 100
          With .TextFrame
               .HorizontalAlignment = xlCenter
               .VerticalAlignment = xlCenter
               With .Characters.Font
                    .Name = "Arial"
                    .Size = 12
                    .Color = vbBlue
               End With
          End With
     End With
End With
                        