Try the following:

With ThisWorkbook
.Save
.ChangeFileAccess xlReadOnly
Kill .FullName
.SaveAs Filename:="H:\book2.xls"
End With


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"Slow1911s"
wrote in
message
...

Is it possible, through VBA, to simply rename the workbook
without
creating a new copy (a la Save As?)

What I want to happen is once the file is opened and edits are
made, I
want the file name to change based on (1) the button the user
presses
and then (2) information contained in the worksheet itself.

Make sense?

TIA


--
Slow1911s
------------------------------------------------------------------------
Slow1911s's Profile:
http://www.excelforum.com/member.php...o&userid=31113
View this thread:
http://www.excelforum.com/showthread...hreadid=507768