DoEventsとApplication.StatusBar

ファイル読み込み時のループなどの場合、この2つをセットで書いておくとよい
（DoEventsでOSに制御がわたり、Escキーが有効になり、ステイタスバーの表示が更新される）。

With CreateObject("Scripting.FileSystemObject")
     For Each ファイル In .GetFolder("C:\Sample").Files 'フォルダ内繰り返し
          icnt = icnt + 1
          DoEvents
          Application.StatusBar = "ファイル読込 (" & icnt & ")" & ファイル.name
          'ファイル読込ルーチンを記述
     Next ファイル
End With