Select a few files in a folder

[Vanquish2888]

Dim FileLocationArray As Variant
 
FileLocationArray = Application.GetOpenFilename("Excel Files,*.xls", 1, "Select Multiple Files", , True)
For i = LBound(FileLocationArray) To UBound(FileLocationArray)
    Application.Workbooks.Open FileLocationArray(i)
Next i