Could you please try this:
Code:
Private Sub Command46_Click()
Dim XL As Object
Set XL = CreateObject("Excel.Application")
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM SAP_Import"
DoCmd.SetWarnings True
Shell """Excel.exe"" ""G:\CPH\Tools\AutoMW\FTP_Auto.xlsm""", vbNormalFocus
'you want Access to wait, not Excel
'newHour = Hour(Now())
'newMinute = Minute(Now())
'newSecond = Second(Now()) + 40
'waitTime = TimeSerial(newHour, newMinute, newSecond)
'XL.Wait waitTime
Dim PauseTime, Start
PauseTime = 40 ' Set duration.
Start = Timer ' Set start time.
Do While Timer < Start + PauseTime
DoEvents ' Yield to other processes.
Loop
End If
DoCmd.RunSavedImportExport "ImportFTP_Auto"
'XL.Quit
'Set XL = Nothing
End Sub
Cheers,