Abrir Acceso Directo de un Libro de Excel

Hola a todos!!!
Tengo el siguiente código por el cual me permite abrir cualquier archivo
(sea acceso directo o no) con cualquier extensión. El tema es que cuando
quiero abrir un acceso directo de un libro de excel (*.xls) no hace nada y se
me cuelga excel.
Espero puedan responder!!
Detallo el código utilizado:

Option Explicit

'=' API declaration
'=Private 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

Private Sub CommandButton1_Click()
Dim hwnd As Long
Dim res As Long
res = ShellExecute(hwnd, "Open", "C:\"(ruta del archivo), "", "", 1)
End Sub

Gracias de antemano!!
Saludos,

Guli