Chiarimento.
codice:
            Set xl = CreateObject("Excel.Application")

            ' dove sSource = path completo del tuo file .xls 
            ' dove sSheet  = Nome del foglio ("Sheet 1" o "Foglio 1" a seconda della versione di Excel  

            With xl
                .Workbooks.Add
                .Workbooks.Open sSource
                .Sheets(sSheet).Activate
                .Visible = True
            End With