計算式を入力したワークシートの数値を変更した時、計算された値が更新されているか不安に感じたことはないでしょうか？　Excel が再計算したらステータスバーにメッセージを出してみましょう。

設定したいワークシートモジュール内に以下のプロシージャを記述します。

Private Sub Worksheet_Calculate()
  Application.StatusBar = "再計算されました"
  Application.OnTime Now + TimeValue("00:00:05"), "ResetStatusBar"
End Sub

標準モジュール内に以下のプロシージャを記述します。

Sub ResetStatusBar()
  Application.StatusBar = False
End Sub

ステータスバーに設定された文字は次に新しく文字を設定するまでそのまま表示されますので、5秒後に標準モジュール内のプロシージャを呼び出して文字を消しています。ステータスバーの制御を Excel に返しています。どのシートでも実行されるようにしたければ、ワークブックモジュール内で Workbook_SheetCalculate イベントを使えばOKです。