Save File Overide

Try

Private Sub SavetoDataFiles()
application.displayalerts=false
    ChDir _
        "\\GLANW001\DATA\Data\Common\Operational Resource And Reporting\PA\Data Files"
    ActiveWorkbook.SaveAs Filename:= _
        "\\GLANW001\DATA\Data\Common\Operational Resource And Reporting\PA\Data Files\TransfersWorkItems.xls" _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub