Abrir archivos de excel-visual basic

Solo tendrian que retocar el codigo poniendoles el nombre para que los abra directamente.

solo hace falta un boton en el form

esto va en el option explicit

Dim HojaExcel As Excel.Worksheet
' Private HojaExcel As Excel.Worksheet
Dim LibroExcel As New Workbook

esto va en el boton

Dim NombreHoja As String
On Error GoTo RutinaError

NombreHoja:
NombreHoja = InputBox("Nombre de la Hoja")
If NombreHoja = "" Then Exit Sub ' Se pulso CANCELAR

' Buscamos la hoja en el directorio de la aplicacion
Set HojaExcel = GetObject(App.Path & "\" & NombreHoja)
HojaExcel.Application.Visible = True
' Activar la ventana que contiene la hoja de calculo
HojaExcel.Application.Windows(NombreHoja).Activate
Exit Sub

RutinaError:
MsgBox Err.Description
If Err = 432 Then Resume NombreHoja