Pausing VBA issue

[andrewb90]

Hello all,

I've tried a few varieties of this and each time VBA seems to be running much longer than necessary for a "1 second" pause. Can anybody help me out with what's wrong?

Private Sub KeepOpenWB_Click()
Sheets("HOME").Range("AM1").Value = 1
Me.Hide
MultiFileOK.Show
If Application.Wait(Now + TimeValue("0:00:01")) Then
MsgBox "times up"
'Application.WaitNow TimeValue("00:00:01")
'Application.Wait (Now + #12:00:01 AM#)
MultiFileOK.Hide
End If
End Sub

 

[Tetra201]

Try Application.Wait((Timer + 1) / 24 / 60 / 60)
It used to work OK for me.

 

[andrewb90]

Ok, I realized what my problem has been this entire time. Since I had a userform up, excel was waiting until I closed it, So now I just need to see if there is a way for excel to keep running with a userform or msgbox up...