You could try this.......

Application.DisplayAlerts = False
Me.SaveAs "NewName"
Kill "OldName.xls"
Application.DisplayAlerts = True

Cheers
Nigel

"billyb " wrote in message
...
I want to rename a workbook as soon as it's loaded. In the
ThisWorkBook_Open event I tried:

Workbook.Name = "MyName.xls"

but that doesn't work because WorkBook's Name property is read-only. I
then used a SaveAs routine using the new name. That works because the
workbook then assumes the name used in SaveAs, but saving the file
takes too long. How can I rename a workbook while it's loaded other
than doing a "SaveAs"?

Any help greatly appreciated!


---
Message posted from http://www.ExcelForum.com/