Abrir un Libro desde una macro utilizando GetOpenFilename

A ver asi:

Sub test()
Dim FileNameXls As Variant, i As Long
FileNameXls = Application.GetOpenFilename( _
filefilter:="Excel Files, *.xls", _
MultiSelect:=True)
If Not IsArray(FileNameXls) Then Exit Sub
For i = 1 To UBound(FileNameXls)
Workbooks.Open Filename:=FileNameXls(i)
Next i
End Sub


Saludos,
KL


"Luis" wrote in message news:
Qué tal??! Estoy tratando de abrir un libro con el siguiente código
dentro de un procedimiento pero no sé cuál es el error?? me dice que
no coinciden los tipos...

Dim FileNameXls As Variant

FileNameXls = Application.GetOpenFilename(filefilter:="Excel
Files, *.xls", MultiSelect:=True)

Workbooks.Open Filename:=FileNameXls

Tengo entendido que con el Application.GetOpenFilename puedo obtener
la ruta del archivo, es más lo he utilizado para crear hipervínculos
en una celda, no entiendo por qué aquí no me funciona?? Quisiera que
la Ruta se seleccione automáticamente al escoger el archivo y no que
tenga que escribirla manualmente como parte del programa pues la
dirección puede cambiar..

Si me pueden ayudar les agradecería mucho!!

Excelente KL!!! Es la solución que necesitaba...

Saludos,

Luis