Con el siguiente codigo lo logras, tambien te anexo un vinculo con algo de informacion de como controlar Excel desde VB, saludos...
Private Sub cmdExcel5_Click()
Dim objExcel As Object
Dim objLibro As Object
Dim strRuta As String
On Error Resume Next
Set objExcel = GetObject(, "Excel.Application")
If Err.Number = 429 Then
Err.Clear
Set objExcel = CreateObject("Excel.Application")
End If
'Ruta de un archivo de Excel existente
strRuta = App.Path & "\Temporal.xls"
If Len(Dir(strRuta)) > 0 Then
Set objLibro = objExcel.WorkBooks.Open(strRuta)
'Ejecutamos una macro EXISTENTE
objExcel.Run "MostrarMensaje"
objLibro.Save
objLibro.Close
End If
objExcel.Quit
Set objLibro = Nothing
Set objExcel = Nothing
End Sub
http://www.vbalym.netfirms.com/excel/excel.html#Lenguajes