    'ステータスバー表示
    Application.DisplayStatusBar = True
    Application.StatusBar = Now
    'ステータスバーの表示を消す
    Application.StatusBar = False

※ステータスバーが表示されない時
[シート タブの表示] 設定が有効になっていることを確認します
[ファイル > オプション] > [詳細設定] を選択します
次に、このブックの [表示オプション] で、[シート タブの表示] チェック ボックスにチェックマークがあることを確認します