View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.misc
protonLeah
 
Posts: n/a
Default Automate save and close


One possibility is to use an auto start macro such as:

Option Explicit
Private Sub workbook_open()
Dim fname As String

fname = Sheets("sheet1").Range("a1").Value

ActiveWorkbook.SaveAs _
Filename:=fname, _
FileFormat:=xlWorkbook, _
Password:="", _
WriteResPassword:="", _
ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub

This will save the file with the whatever name is in cell A1 every time
it is opened.

Ben


--
protonLeah
------------------------------------------------------------------------
protonLeah's Profile: http://www.excelforum.com/member.php...o&userid=32097
View this thread: http://www.excelforum.com/showthread...hreadid=523844