Durum çubuğu

[haso_excel]

Merhaba arkadaşlar,
Her excel çalışma dosyasında, durum çubuğumda aşağıdaki mesajın kırmızı ve bold olarak görünmesini istiyorum mümkünmü ?

Sub durumcubugu()
Application.StatusBar = treu
Application.StatusBar = "HASAN NIN CALIŞMA ALANI LÜTFEN RAHATSIZ ETMEYİN"
Application.StatusBar.Font.Bold = True
End Sub