Com o código abaixo é possível abrir vários arquivos utilizando a janela do windows:

Sub abrir()

Dim arqNome As Variant

'forma o array e grava na variável pra selecionar multi-arquivos
arqNome = Application.GetOpenFilename(, , , , True)

'limitador, define quantos itens estará no array
For Y = 1 To UBound(arqNome)
   Workbooks.Open arqNome(Y)
Next
End Sub

__________________

Veja Também:  Selecionar/ativar Planilha