Saving to network - trap error
 

I have a weekly report that when I close it, it saves to the C: drive and
then to the network drive, and pops up some msg boxes telling me they have
saved. Here's a snippet:

Sub Workbook_BeforeClose(Cancel As Boolean)
.....
sPath = "C:\My Documents\Saddle Creek\WeeklySalesRpt\"
sPath2 = "G:\Jason\Weekly Sales Report\"
wbname = Sheets(1).Name & " " & Sheets(1).[A2].Value
wb.SaveAs sPath & wbname & ".xls"
MsgBox "File saved to C drive!"
wb.SaveAs sPath2 & wbname & ".xls"
MsgBox "File saved to G drive!"
......
End Sub

I'd like to improve the code and have Excel tell me if the file does not
save to the G: drive for whatever reason, then continue with macro (closing
workbook).

Thanks!
Jason

Saving to network - trap error
 

As far as I know excel always saves or it will tell you (read only access to
a network folder...etc) ... check to make sure you don't have
application.enableevents = false in your code or the error message will not
pop up.

"Jason Morin" wrote:

I have a weekly report that when I close it, it saves to the C: drive and
then to the network drive, and pops up some msg boxes telling me they have
saved. Here's a snippet:

Sub Workbook_BeforeClose(Cancel As Boolean)
....
sPath = "C:\My Documents\Saddle Creek\WeeklySalesRpt\"
sPath2 = "G:\Jason\Weekly Sales Report\"
wbname = Sheets(1).Name & " " & Sheets(1).[A2].Value
wb.SaveAs sPath & wbname & ".xls"
MsgBox "File saved to C drive!"
wb.SaveAs sPath2 & wbname & ".xls"
MsgBox "File saved to G drive!"
.....
End Sub

I'd like to improve the code and have Excel tell me if the file does not
save to the G: drive for whatever reason, then continue with macro (closing
workbook).

Thanks!
Jason