Multi select macro running slowly

[307Fergie]

Hoping someone can help with my first attempt at a multi select macro.
The single version runs in less than a second but using this code to multi select it now takes up to 5 sec for each. Figure it is something to do with how I am getting them from the array.

[FONT=Calibri][SIZE=3][COLOR=#000000]vaFiles = Application.GetOpenFilename("Excel Files(*.csv), *.csv", _[/COLOR][/SIZE][/FONT]

[FONT=Calibri][SIZE=3][COLOR=#000000]             Title:="Select files", MultiSelect:=True)[/COLOR][/SIZE][/FONT]

[FONT=Calibri][SIZE=3][COLOR=#000000]    IfIsArray(vaFiles) Then[/COLOR][/SIZE][/FONT]


[FONT=Calibri][SIZE=3][COLOR=#000000]    For i =LBound(vaFiles) To UBound(vaFiles)[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]            SetwbkToCopy = Workbooks.Open(Filename:=vaFiles(i))[/COLOR][/SIZE][/FONT]

 

[DanteAmor]

There is no problem in the way of opening the files, it is the time of your machine to open each file. Put the following at the beginning of the code to see if the time improves

    vaFiles = Application.GetOpenFilename("Excel Files(*.csv), *.csv", _
             Title:="Select files", MultiSelect:=True)
    
[COLOR=#0000ff]    Application.ScreenUpdating = False[/COLOR]
    
    If IsArray(vaFiles) Then


        For i = LBound(vaFiles) To UBound(vaFiles)
                SetwbkToCopy = Workbooks.Open(Filename:=vaFiles(i))

 

[307Fergie]

Thanks Dante. I do have screen updating turned off, but before the first line of code I posted. Dont think this is the problem. Cant understand why if I select a single file with this code it takes so much longer when the actual body of the macro is exactly the same.