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