Renaming a Sheet 1

[mkjp2011]

How would I set the name of an excel sheet. I would use the following code to access the sheet object

Set excelReport = CreateObject("Excel.Application")
excelReport.Workbooks.Add
Set excelSheet1 = excelReport.ActiveWorkbook.WorkSheets(1)
Set excelSheet2 = excelReport.ActiveWorkbook.WorkSheets(2)

 

[SkipVought]

hi,

dim xl as object

set xl = CreateObject("Excel.Application")

with xl.workbooks.add[b]
   .worksheets(1).name = "Whatever"[/b]
   .saveas "your_choice.xlsx"
   .close
end with

xl.quit

set xl = nothing

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]