Можно ли изменить размер или шрифт в строке состояния Excel?

Private Sub CommandButton1_Click()
    UserForm1.StartUpPosition = 0
    UserForm1.Left = 0
    UserForm1.Top = Application.ActiveWindow.Height - UserForm1.Height
    UserForm1.Show vbModeless
End Sub

Sub Пример()
  s1 = 1000: s2 = 1000
  MsgBox ActiveCell.Value & vbCr & _
         "Приход " & s1 & vbCr & _
         "Расход " & s2, vbInformation, ""
End Sub

Sub popupDemo()
' подключить ссылку на библиотеку Windows Script Host Object Model
Dim WshShell As Iwshshell
Dim mg As String 'строка сообщения
Dim N As Integer 'количество секунд отображения
Dim title As String 'заголовок
    Set WshShell = CreateObject("Wscript.Shell")
    mg = "Жду 5 секунд."
    N = 5
    title = "POPUP"
'возможные варианты: 1+vbInformation, 2+vbInformation и т.д.
    WshShell.Popup mg, N, title, vbInformation
    Set WshShell = Nothing
End Sub

Option Explicit
 
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Private Sub CommandButton1_Click()
    ShowTextInStatusBar 4, 250, "Ochen' vazhnoe soobschenie"
End Sub
 
Private Sub ShowTextInStatusBar(ByVal pintBlinks As Integer, ByVal pintMilliseconds As Integer, ByVal pstrText As String)
    Dim intCount As Integer
    
    For intCount = 1 To pintBlinks
         Application.StatusBar = pstrText
         Sleep pintMilliseconds
         Application.StatusBar = ""
         Sleep pintMilliseconds
    Next intCount
    Application.StatusBar = pstrText
 
End Sub