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