On Error GoTo Doesn't Work

  • Thread starter Thread starter bjdesa
  • Start date Start date
B

bjdesa

When the active cell doesn't have a Reference Name the "On Error GoTo
ExitMe" does not trigger but instead I get the runtime error 1004.
Could you please tell me what I am doing wrong? Thanks-

Private Sub CancelButton_Click()
Me.Hide
End Sub

Private Sub OKButton_Click()
Me.Hide
End Sub

Private Sub UserForm_Activate()
On Error GoTo ExitMe
TextBox1.Text = ActiveCell.Name.Name
GoTo Done
ExitMe:
TextBox1.Text = "Sorry this cell does not have a refrence name"
Done:
End Sub
 
Inside the VBE with your workbook's project selected:

Tools|Options|General tab
change the error trapping from "break on all errors" to "break in class module"
 
Back
Top