Don't forget the displayalerts.

Dim newFileName As String
    application.displayalerts = false
     newFileName = "QA Fix It " & Format(Now, "MM-DD HHMM") & ".xlsx"
ActiveWorkbook.SaveAs "M:\My Folder\Associate QA Reports\Associate QA fix it reports\" & newFileName, 51
   application.displayalerts = true