Type Info:
WaitWindow As Boolean
Dim App As Application Set App = Application App.WaitWindow = True ' ... If (App.WaitWindow) Then App.WaitWindow = False End If