esto es lo que me funciono, enviado por Boluart, se los comparato por si se encuentran con algo igual..
Código:
Dim path As Variant
path = Application.GetOpenFilename
If path = False Then
MsgBox "No selecciono ningun archivo"
Else
Workbooks.OpenText Filename:=path,
End If