Excel VBA ユーザフォームを閉じさせない

Excel VBA ユーザフォームを閉じさせない

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If isRunning And CloseMode = vbFormControlMenu Then
        If MsgBox("処理中です。本当に終了しますか？", vbQuestion Or vbYesNo) <> vbYes Then
            Cancel = 1
        End If
    End If
End Sub

---