Sub shutdownbot()
Application.ScreenUpdating = False
Application.Calculation = Application.Calculation =xlCalculationManual
Application.DisplayAlerts = False
Application.EnableEvents = False
Windows("FlaggingreportBOTv2.xlsb").Activate
Windows("Post 7am routing risk level v5.2.xlsb").Activate.
‘when the end user opens the file I expect this line to error then exit the sun with any error messages on screen being supressed
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.DisplayAlerts = False
Application.EnableEvents = False
End sub