ProgressBarコントロールを使うと、ユーザーフォームに進捗状況を表示することが出来ます。
例えば、ユーザーフォームにProgressBar1を配置し、標準モジュールには以下の様に記述します。
Sub Sanmple55()
Dim I As Integer
UserForm1.Show False
For I = 1 To 10
Application.Wait Now + TimeValue("00:00:01")
UserForm1.ProgressBar1.Value = I * 10
Next I
End Sub
尚、ProgressBarコントロールがツールボックスに表示されない場合は以下の手順で追加します。
ツールボックスで右クリック→その他のコントロールを選び、利用可能なコントロールの中から、ProgressBarというのを選びチェックして、OKします。