vbaでEXCELのウィンドウ左下隅にあるステータスバーに進行状況（例：処理中ファイル名など）を表示し、今やってますよと説明責任を果たす。

Application.StatusBar = "処理中..." & fileName（例とし、処理対象のファイル名）で進行状況を出し、終わったら、Application.StatusBar = False でクリアしておく。

face