I am using the following code in the "before save" declaration in the
workbook code. It works great except for one problem. It doesn't save the
workbook in the directory I want it to. How do I get it to save in a certain
directory/folder?

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.EnableEvents = False
Cancel = True
ThisWorkbook.SaveAs Worksheets("DEVIATION REPORT").Range("AM49").Value
Application.EnableEvents = True

End Sub