Abrir aplicaciones

Con shell solo puedes lanzar aplicaciones más no un docmuento especifico por lo menos hasta donde yo se, de tal forma lo que harías con el shell es llamara al ejecutable de tu excel, si quieres abrir un documento de excel utiliza la API ShellExecute de l asiguiente manera:
En un modulo pega lo siguiente
'///////////////////////////////////
Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation _
As String, ByVal lpFile As String, ByVal lpParameters _
As String, ByVal lpDirectory As String, ByVal nShowCmd _
As Long) As Long
Declare Function apiFindWindow Lib "User32" Alias "FindWindowA" _
(ByVal lpclassname As Any, ByVal lpCaption As Any) As Long
Global Const SW_SHOWNORMAL = 1
'////////////////////////////////////
luego en tu formulario
Private Sub Command1_Click()
Dim hwnd
Dim StartDoc
hwnd = apiFindWindow("OPUSAPP", "0")
StartDoc = ShellExecute(hwnd, "open", "C:\Myexcel.xls", "", _
"C:\", SW_SHOWNORMAL)
End Sub
Y eso es todo, no olvides valorar la respuesta.