Im assuming that you have some sort of code as this:
Dim oXL As Excel.Application
Dim oWB As Excel.Workbook
Dim oSheet As Excel.Worksheet
Dim oRng As Excel.Range
oXL = CreateObject("Excel.Application")
oXL.Visible = True
oWB = oXL.Workbooks.Add
oSheet = oWB.ActiveSheet
You can set the first sheet with the command:
oSheet = oWB.Sheet(1)
and the second by:
oSheet = oWB.Sheet(2)