Waiting for another app

[Nucleus]

You could also try building in a delay long enough to allow for acrobat to open.

Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long
 
Private Sub Command1_Click()
    '//2000ms Delay
    Delay 2000
End Sub
 
Private Sub Delay(ByVal interval As Long)
Dim i&
    i = GetTickCount
    Do While GetTickCount - i < interval
        DoEvents
    Loop
End Sub