Hi everyone,

This is my first post so please bear with me. I have a workbook that I input data into daily. The workbook "Perform NARS Projection.xlsm" manipulates the data. After I have inputed all the new daily data and my information is updated, I need to save the Active Workbook in my G drive.

Ex: G:\Decision_Support\Doug\NARS\

And I want to save it under the new name NARS Projection 2.0 (mm-dd-yy) with current date WITHOUT the last sheet (which has my macro instructions as well as WITHOUT the workbooks macros.

Currently, I have this code which just saves the workbook under a new name in the necessary file but it saves the last worksheet as well as the macros. I tried changing xlsm to xlsx but it wouldn't allow me (and I have to save it as xlsx).

Sub SaveAs()
   Dim sFile As String
   sFile = "NARS Projection 2.0 " & Format(Now(), "(mm-dd-yy)") & ".xlsm"
   ActiveWorkbook.SaveAs Filename:="G:\Decision_Support\Doug\NARS\" & sFile
End Sub
Is there a code I can use to eliminate the last Worksheet and the macros while still saving this to my G drive under the specified name?

Thank you for the help!