Running Excel Shell

[Reggie2004]

I need the code to run an Excel Shell. I have the one for Word ("WScript.shell"). I want to run a spreadsheet with a macro from access. This is the code.

Public Sub excel_filter_Click()

On Error GoTo Err_excel_filter_Click
Set Sh = CreateObject("WScript.Shell")
Sh.Run "C:\Documents and Settings\RDKIRB49\desktop\filter with macro.xls"

Exit_excel_filter_Click:
Exit Sub

Err_excel_filter_Click:
MsgBox Err.Description
Resume Exit_excel_filter_Click

End Sub

Please help...........

 

[NoCoolHandle]

Reg... wrong forum.

try office