VB调用excel关于工作薄名称的问题

Dim xlsapp As New Excel.Application
Dim xlsbook As New Excel.Workbook
Dim xlssheet As Excel.Worksheet
Set xlsbook = xlsapp.Workbooks.Add

Set xlssheet = xlsbook.Worksheets("sheet1")

MsgBox xlsbook.Name '注能够显示名称为book1等的信息，但是不能改变，我想改为其他名称，不知怎么做。
'注整过是在内存中完成，我不需要保存为一个文件，所以无需调用saveas方法,打印完毕后就自动消失.
'但我用ADOBE PDF打印机时，提示的文件名为book1.xls"

xlssheet.Cells(1, 1) = "hello"
xlsapp.DisplayAlerts = False
xlssheet.PrintOut , , 1, , ComboPrt.List(ComboPrt.ListIndex)
xlsbook.Close

xlsapp.Quit
Set xlssheet = Nothing
Set xlsbook = Nothing
Set xlsapp = Nothing