処理が多くて画面表示を停めている場合に、フリーズしていないか不安になったので入れてみました。

'’ステータスバー表示’あたま
Dim i As Integer
Dim S As String

S = "Sub名" 'Sub名

For i = 1 To 10
Application.StatusBar = S & "_" & "実行中" & String(i, "■") & String(10 - i, "□")
Application.Wait [Now()+"00:00:00.2"]
'’以下、動作

''ここに操作内容を入れる。

'’以上、動作
'’ステータス表示’お尻
Next i
Application.StatusBar = False 'ステータスバーを非表示