rename current file save and delete original

V

valve79

Hey guys
I have this problem and I cant figure it out. I made a macro to save
the worksheet under a name that comes from cell N1. When the user is
done with form they hit my macro and it saves it in LAN and everything
is good. ( here is the problem ) Then another user goes in the Lan
finds the file and approves the form that adds two letters to the Cell
N1 (AP for approved ) that means it changes the file name and saves it
as a new file.
I need help how to keep that name with the same file even if it
changes. Here is the macro
any help appreciated - Thanks

Private Sub CommandButton1_Click()
thisfile = Range("n1").Value
activeworkbook.SaveAs Filename:="E:\CFA Checklist\" & thisfile &
".xls"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
MsgBox "File has been saved and Printed Location E:\CFA Checklist"
activeworkbook.Close
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top