Hi oldjay,

The msgbox is the next line of code so it will always execute. You need an
Exit Sub immediately prior to label ehandler: so that it only processes code
past the label if it is sent there by the error.


Exit Sub
ehandler:

--
Regards,

OssieMac


"oldjay" wrote:

Using Excel 2007 and Win 7
The following macro has suddenly started displaying the error message even
thou the file is saved correctly to the server.
Private Sub CommandButton4_Click() 'Save Work Master

Application.ScreenUpdating = False
Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:="C:\Quotes\Master7.xlsm"

On Error GoTo ehandler

ActiveWorkbook.SaveAsFilename:="\\SERVER3\JOBS\EST IMATE1\Master7.xlsm"
Range("A1").Select
Range("A5").Select

ehandler:

MsgBox "You cancelled the save or an error has occured connecting to the
server. Check your connection and try again ", vbCritical + vbOKOnly, "File
not saved!"

End Sub