Macro: Save File & Automatically Overwrite Old File

I presently have a macro that, when run, takes to conents of C4 and C6 and saves a new version of the file being worked on into a folder on my desktop. I love the macro with the exception of one part: I don't want to be prompted to overwrite the file if it already exists. How can I change this macro so that, when pressed, it overwrites the file without prompting the user and waiting for their answer? Here is the current code:

Sub SaveIt()
     
    Dim strFirst As String, strLast As String
     
    ChDir "C:\Documents and Settings\All Users\Desktop\TNT Desktop Locker\"
     
    With Worksheets(1)
        strFirst = .Range("C4")
        strLast = .Range("C6")
    End With
     
    ThisWorkbook.SaveAs _
    "C:\Documents and Settings\All Users\Desktop\TNT Desktop Locker\" & _
    strFirst & " -TNT- " & strLast, xlWorkbookNormal
     
End Sub

Re: Macro To Save File And Automatically Overwrite Old File

Quote from gmccreedy

Code

Application.DisplayAlerts = False

set back to true after file is saved.

Where would I put that? I'd like it to be a funtion that sets itself to false when the workbook opens and then returns to "true" when the workbook is closed. Thanks!