Wait until file exists
Const timeoutSeconds As Long = 128
Public Function https://stackoverflow.com/questions/37065764/how-to-check-until-file-exist(ByVal theFileName As String) As Boolean
Dim startTime As Single
startTime = Timer
Do
If FSO.FileExists(theFileName) Then
WaitForFileToExist = True
Exit Do
End If
DoEvents
Application.Wait Now + TimeValue("0:00:01")
timeElapsed = Timer - startTime
Loop Until timeElapsed > timeoutSeconds
End Function