How To Save To Excel Sheet From Work Sheet1

[redshirtme]

WHEN i TRIED THIS CODE

Set xl = CreateObject("Excel.Application")
Set xlBook = xl.Workbooks.Open(App.Path & "\book1.xls")
 Set xlSheet = xlBook.Worksheets.Add

IT ALWAYS START FROM WORKSHEET 4 ,BECAUSE BY DEFAULT, EXCEL OPEN 3 BLANK WORKSHEET ONSTART, HOW DO I CHANGE THE CODE SO THAT i COULD SAVE FROM WORK SHEET 1 WITHOUT LEAVING FIRST THREE WORKSHEETS BLANK?


THANKS