Excel Doesn't Complete Macro after Opening Another Workbook

Question

I\'m trying to get VBA to fire the commands

sImportFilePath = Application.GetOpenFilename(FileFilter:= _
\"Excel Files (*.xls), *.xls\", Title:=\"Choose The          


        

Answer 1

Temporary solution found on an French forum: use the below ForEachWinDoEvents before activating the workbook of your choice.

Sub Test()
    Application.ScreenUpdating = False
    Set w1 = Workbooks.Add(xlWBATWorksheet)
    Set w2 = Workbooks.Add(xlWBATWorksheet)
    Set w3 = Workbooks.Add(xlWBATWorksheet)
    Application.ScreenUpdating = True
    ForEachWinDoEvents
    w2.Activate
End Sub

Sub ForEachWinDoEvents()
Dim win As Window
  For Each win In Application.Windows
    DoEvents
  Next win
End Sub