Dim oExcel As New Excel.Application
Dim oWorkb As Excel.Workbook
Dim osheet1 As Excel.Worksheet
Dim osheet2 As Excel.Worksheet
Dim osheet3 As Excel.Worksheet
Dim osheet4 As Excel.Worksheet
 
 oWorkb = oExcel.Workbooks.Add
 oWorkb.Sheets.Add()
 
 osheet1 = oWorkb.Sheets(1)
 osheet1.Name = "name1"
 
 osheet2 = oWorkb.Sheets(2)
 osheet2.Name = "name2"
 
 osheet3 = oWorkb.Sheets(3)
 osheet3.Name = "name3"
 
 osheet4 = oWorkb.Sheets(4)
 osheet4.Name = "name3"