Error Message
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 |
Error Message
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 |
Error Message
You saved me again OzzieMac = Thanks
"OssieMac" wrote: 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 |
All times are GMT +1. The time now is 10:41 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com