View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Paul B Paul B is offline
external usenet poster
 
Posts: 709
Default Use a Macro to Save a Copy of a Workbook?

Joe, try this,

Sub Save_As()
Dim SaveName As String
On Error GoTo E
Application.DisplayAlerts = False
SaveName = Range("A2").Value
ActiveWorkbook.SaveAs Filename:=(SaveName), FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False
E:
Application.DisplayAlerts = True
End Sub


--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"Joe D" wrote in message
oups.com...
Hi,

I am trying to streamline my department's scheduling process by using a
macro. I want an employee to open a master workbook (master.xls), then
enter data, then SaveAs a workbook with a name that is taken from a
string in cell A2.

I want the last of those three steps to be done automatically using a
macro. I am new to programming excel and my current attempts at this
macro are a mess of copy-and-pasted code from these message boards.

My current code works to some extent. It does what I want it to, but
Excel crashes immeadiately after. Can Someone please help me out with
some clear code to prevent Excel from crashing after the save? I would
also like if Excel did not ask to overwrite a file with the same
name... I want it to automatically overwrite without complaining.

Thanks,
Joe