Change worksheet's name in an unsaved workbook

[gr8giz]

Here is the situation:

I want to create a new workbook and change the name of the worksheet Sheet1 to something else. Then I would be copying some data to it for charting it out.

However, I dont want to save the workbook. I have created a workbook object Newbook and then used
Set Newbook = Workbooks.add

How do I access this new workbook without naming it?
I am not able to use Workbooks(Newbook) as a qualifier.

I am using Excel 2003 on Win XP machine (if it matters).

Thanks

 

[WillR]

Try this

Sub addnewbook()
Dim NewBook As Workbook

Set NewBook = Workbooks.Add

With NewBook
.Worksheets("Sheet1").Name = "Something Else"
End With

End Sub