スキルアップ・問題解決なら、モーグにおまかせ！

サンプルマクロは、ユーザフォームに配置したコマンドボタンでマクロの実行を一時中断させます。ユーザフォームにLabel1、cmdOKおよびcmdCancelを配置して、コードウインドに記述してください。

Dim myFlag As Boolean
Dim i As Long

Private Sub cmdCancel_Click()

    myFlag = False

End Sub

Private Sub cmdOK_Click()

    myFlag = True
    While myFlag
        On Error GoTo ErrHdl
        i = i + 1
        Application.Wait Now() + TimeValue("00:00:01")
        Label1.Caption = "進行状況：" & i
        DoEvents
    Wend

ErrHdl:

End Sub