Visual Basic para Aplicaciones - Abrir archivo excel desde access

Dim Abrir_Excel As Object

Set Abrir_Excel = CreateObject("Excel.Application")

Abrir_Excel .Visible = True

Abrir_Excel .Workbooks.Open ("C:\Ubicación\Nombre.xls")

Abrir_Excel .Windows("Nombre.xls").Activate

Abrir_Excel .Sheets("Hoja1").Select

Private Sub cmdNavegar__Click()

Dim Abrir_Excel As Object

Dim fDialog As Office.FileDialog

    Set fDialog = Application.FileDialog(msoFileDialogFilePicker)

        With fDialog

            .AllowMultiSelect = False

            .Filters.Clear

            .Filters.Add "All Files", "*.xls*"

                If .Show = True Then

                 vArchivo = .SelectedItems(1)

                End If

        End With

Set Abrir_Excel = CreateObject("Excel.Application")

    Abrir_Excel.Visible = True

    Abrir_Excel.Workbooks.Open (vArchivo)

End Sub