I have the following macro that I'd like to modify so before the file is closed it will save it with the "worksheet" name of the original file. As you can see the macro currently takes each worksheet from the main file and saves it as the worksheet name and adds the year to the end of it before it saves it. I'd like the macro to also add a password ("password to open" in the general options)... I'd like the macro to be only the worksheet name.
Any help with the code is always appreciated!
Dim wsh As Worksheet
Dim strDate As String
'Turn off screen updating
Application.ScreenUpdating = False
For Each wsh In Worksheets
Select Case wsh.Name
'Don't copy & save these worksheets
Case "pay grades", "date vlookup", "download", "translation", "COPY DATABASE"
'Do copy & save all the other worksheets
'Save each worksheet with the worksheet name & 2006 as the file name
.SaveAs Filename:=ActiveSheet.Name & " 2006" & ".xls"
'Close the original file without saving it
'Close original file without saving it