Choose file name Save As macro

gbaker · #25 07-22-2014, 11:54 AM

Hi Bob,
This project is very important and although I always want to know I can't take the time on this one.

I found a code that works. It allows me to save the workbook to a directory on the network, take a name from the A1 cell in the original, adds today's date which renames the workbook, and now original goes back unchanged for the next time I need to use it. It also removes a tab called UPDATE (where the buttons for the Macro's are located) from the new saved workbook: Thanks Again for your help!! I'll get back to you when time allows. Here is the code I found:

Code:

'Saves filename as value of A1 plus the current date
     
    Dim newFile As String, fName As String
     ' Don't use "/" in date, invalid syntax
    fName = Range("A1").Value
     'Change the date format to whatever you'd like, but make sure it's in quotes
    newFile = fName & " " & Format$(Date, "mm-dd-yyyy")
     ' Change directory to suit your PC, including USER NAME
    ChDir _
    "J:\ProgramOps\Exceptions Masters & Data\Aon Hewitt"
    ActiveWorkbook.SAVEAS Filename:=newFile
    Sheets("UPDATE").Select
    ActiveWindow.SelectedSheets.Delete
    ActiveWorkbook.Save

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to save as pdf with ability to choose save as folder	rvessio	Word VBA	4	07-25-2016 12:37 PM
Outlook 2010 Macro Save as MSG, Choose Destination, set default filename	rslck	Outlook	1	06-19-2014 10:16 AM
Save As Macro that changes the file name also	rosscortb	Word VBA	5	05-19-2014 08:40 AM
How do I save a Word file with a macro for distribution?	leemoreau	Word VBA	3	10-04-2013 08:06 AM
Word Macro: Save file as text with current file name	jabberwocky12	Word VBA	2	10-22-2010 12:23 PM