Как поменять шрифт с помощью VBA?

Question

[ZUeVMD]

Есть код, но не пойму, как изменить шрифт на Times New Roman в колонтитулах

Application.PrintCommunication = False
    
    With ActiveSheet.PageSetup
    
        .RightHeader = _
            "КФД 4235445 n. &P" & Chr(10) & _
            "Номер ЛС " & Range("XDO_?XDOFIELD62?").Value & Chr(10) & _
            "Дата " & Range("XDO_?XDOFIELD58?").Value & " " & Range("XDO_?XDOFIELD57?").Value & " 20" & Range("XDO_?XDOFIELD59?").Value
            
        .RightFooter = _
            "Номер страницы &P" & Chr(10) & _
            "Всего страниц &N"
        
    End With
    
    Application.PrintCommunication = True

Answer 1

[Даниил Бабкин]

.RightFooter= "&""ИМЯ_ШРИФТА,обычный""Ваш текст"

У меня работает.