End Sub if network is down

[daniels012]

I have code that sends data to our salesmans computers:

Select Case WB1.Sheets("FRONT").Range("C2").Value
        Case "MD"
            strfilename = "\\MIKESRGATEWAY\MikesProposals\" & strfilename
            
        Case "TD"
            strfilename = "\\Tomsblackibm\TomsProposals\" & strfilename
            
        Case "DJ"
            strfilename = "\\DAVEJONES\DavesProposals\" & strfilename
            
        Case "CP"
            strfilename = "\\Chuckscomputer\daily\" & strfilename
            
    End Select
    
    WB1.SaveCopyAs Filename:=strfilename
    
    WB1.ActiveSheet.Shapes("Button 53").Visible = False
    
    ChDir CurrPath

Sometimes if the salesmans computer is down, his computer is turned off, or there is network issues, I get an error on the line:
WB1.SaveCopyAs Filename:=strfilename
Is there a way to avoid this?? It is not imperative that the salesman recieves his copy on his computer, so if there is an error just end sub or something.

Thank You,
Michael

 

[Von Pookie]

Well, you could just skip the line if it errors:

On Error Resume Next 'if error occurs, continue macro

'if this line errors, code will continue instead of debugging
'because of the Resume Next
WB1.SaveCopyAs Filename:=strfilename

On Error Goto 0 'reset error trapping

 

[daniels012]

I would rather end the code, because I don't want to :
Make the button invisible

WB1.ActiveSheet.Shapes("Button 53").Visible = False

So I should use?? And where would be a good place?

Michael

 

[Von Pookie]

Oh, ok. You can still use the error trapping as above, but you can use a simple IF statement to end the macro rather than simply continuing the code:

On Error Resume Next 'if error occurs, continue macro

'if this line errors, code will continue instead of debugging
'because of the Resume Next
WB1.SaveCopyAs Filename:=strfilename

' check if error occured.
' If error occured, code ends.
' If no error, code continues
If Err.Number <> 0 Then Exit Sub

'reset error trapping
Err.Clear
On Error Goto 0