Gerry,
You need to add an "Exit Sub" line before your "errorhander" code label.
Without it, execution carries merrily along into the error handler code.
E.g.,
Exit Sub
ErrorHandler:
MsgBox("Error")
End Sub
--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting
www.cpearson.com
(email on the web site)
"Gerry O" wrote in message
...
I have a userform in Excel that requires a user to select an option from a
drop down combobox. A command button returns the value and opens up
another
workbook for the user to edit. I added an error handling routine that
returns an error message if for some reason the file doesn't exist or
there
is a problem with the file path. My problem is that even when the sub
runs
successfully, I still get the error message. If I completely remove the
error handling routine and line code, I get no vba/excel errors, but the
sub
runs successfully. I am not sure why I get the error message upon
successful
completion of the sub?
Here is my code. Any help would be appreciated!
Private Sub cmbEnter_Click()
Dim CostCenter
CostCenter = cbxCostCenter.Value
On Error GoTo errorhandler
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & "Budget 2008 - AMC
("
& CostCenter & ").xls", _
UpdateLinks:=1
Unload Me
'ResetAll
'ThisWorkbook.Close savechanges:=False
errorhandler:
MsgBox ("Application cannot load file. Contact Application
Administrator for assistance.")
End Sub
--
Thanks,
Gerry O.