Automatically Save and Route Code

  • Thread starter Thread starter John Michl
  • Start date Start date
J

John Michl

I have a sheet that will be routed throughout a department. When
opened, it runs a macro that collects data. At the end of the
collection process, I'd like it to save, close and send to the next
receipient. However, if I set the macro to simply close the file, it
prompts the user to save then prompts to send.

Is there a way to skip these routing messages and just send it?

Any other hints on using Routing Slips in VBA code?

Thanks

- John
 
You could try something like this..... I assume the routing has already been
set up........put the code in ThisWorkBook module.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Route
Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.DisplayAlerts = True
End Sub
 
Back
Top