Bu kod durum çubuğunun sol alt köşesindeki bölüme mesaj yazdırmayı sağlıyor.
Option Explicit Sub DurumCubugunaMesajYazdir() Application.StatusBar = Chr(34) & "Deneme Mesajı" & Chr(34) & " örnek bir mesajdır." End Sub