Adding auto-close code to existing?

Public Sub submit()

' turn off prompts
Application.DisplayAlerts = False

ThisWorkbook.Close
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Save changes to workbook when closing, without prompting user.
Me.Save

' turn prompts back on
Application.DisplayAlerts = True

' place clear workbook code here


End Sub