Заполнить выделенную ячейку текстом

Question

Как заполнить выбранную ячейку предварительно заданным и отформатированным текстом?

Например, если ячейка A1 будет выделена, если нажать на кнопку с именем Greetings, он будет заполнить ячейку A1 с текстом "Hello" жирным шрифтом, если нажать на кнопку с именем Food, он будет заполнить ячейки A1bread (linebreak) ham (linebreak) mayo с красным ,

Answer 1

Создать набор небольших подлодок, как:

Sub Greetings() 
    With ActiveCell 
     .Clear 
     .Value = "Hello" 
     .Font.Bold = True 
    End With 
End Sub 

и назначить их на соответствующие кнопки.