You can try something like this:
Code:
Private Sub CmdOpenExcelSheet_Click()
On Error GoTo Err_CmdOpenExcelSheet_Click
Dim xlApp As Excel.Application
Dim xlWkbk As Excel.Workbook
Dim xlSht As Excel.Worksheet
Set xlApp = New Excel.Application
xlApp.Visible = True
'Set the workbook and the filepath 'Change "C:\YourExcelFile.xls " to your own filepath and Workbook name
Set xlWkbk = xlApp.Workbooks.Open("C:\Book1.xls ")
'Set the worksheet that you want the workbook to open on
xlApp.Sheets("Sheet3").Select
'Turn everything off otherwise you will have problems with your spreadsheet
Set xlApp = Nothing
Set xlWkbk = Nothing
Set xlSht = Nothing
Exit_CmdOpenExcelSheet_Click:
Exit Sub
Err_CmdOpenExcelSheet_Click:
MsgBox Err.Description
Resume Exit_CmdOpenExcelSheet_Click
End Sub