Simple:
Sub FileSaveAs()
Call FileSave
End Sub