Save As Change
 

I need to change the Save As on the File Drop Down menu to not be the
original document. I would like to rename it as I did on exit.

I have already diabled the save and on exit it does a "save as" to the new
name. See code below:

Private Sub workbook_open()

'With CommandBars("File")
With Me.Application.CommandBars("File")
..Controls(4).Enabled = False 'Save Button

End With
Me.Application.CommandBars("standard").Controls("S ave").Enabled = False

End Sub



Private Sub Workbook_BeforeClose(Cancel As Boolean)

Me.Application.Dialogs(xlDialogSaveAs).Show "C:\New_Expense_Report.xls"
With Me.Application.CommandBars("File")
.Controls(4).Enabled = True
End With

Me.Application.CommandBars("Standard").Controls("S ave").Enabled = True

End Sub


Any advice would be appreciated!
Thanks in Advance