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