Abrir Archivo con Cuadro de Dialogo

Application.Dialogs(xlDialogOpen).Show
-------------------------------------------------------------------------
Dim archivo As String
archivo = Application.GetOpenFilename
 ------------------------------------------------------------------------
Dim FileNames As Variant
FileNames = Application.GetOpenFilename _
          ("Archivos Excel (*.xls), *.xls", , "Seleccionar archivos ", MultiSelect:=True)
-------------------------------------------------------------------------
    Dim ruta
    ruta = Application.GetOpenFilename(Title:="Selecciona la Base de Datos Origen", MultiSelect:=False)
-------------------------------------------------------------------------
Dim wkbnombre
wkbnombre = Application.GetOpenFilename("Archivos de Excel (*.xls; *.xlsx),*.xls;*.xlsx")
-------------------------------------------------------------------------
With Application.FileDialog(msoFileDialogFilePicker)
     .AllowMultiSelect = False
    .Title = "Seleccionar el libro cuyas fórmulas se quieren analizar"
    .Filters.Add "", "*.xls", 1
    .InitialView = msoFileDialogViewDetails
    .InitialFileName = ThisWorkbook.Path & "\*.xls"
    .Show
     Text1 = .SelectedItems(1)
End With

Propiedad FileDialog
Devuelve un objeto FileDialog que representa una instancia del cuadro de diálogo de archivo.
expresión.FileDialog(fileDialogType)
expresión      Requerida. Expresión que devuelve uno de los objetos de la lista Aplicar a.
fileDialogType     MsoFileDialogType requerido. Tipo del cuadro de diálogo de archivo.
MsoFileDialogType puede ser una de estas constantes MsoFileDialogType. 
msoFileDialogFilePicker  Permite al usuario seleccionar un archivo. 
msoFileDialogFolderPicker  Permite al usuario seleccionar una carpeta. 
msoFileDialogOpen  Permite al usuario abrir un archivo. 
msoFileDialogSaveAs  Permite al usuario guardar un archivo.