Hi all,

I have this code below it is working well apart from the inputboxes, I want
the person to have the ability to hit the cancel button. when this happens
now it fills the column "g" completely with yes
how can this be corrected.

Private Sub UserForm_Activate()
Sheet5.Activate
Label1.Caption = InputBox("WHAT IS THE PLAYER'S REGISTRATION NUMBER?",
"Existing Player's re-registration")

Dim Nor
Dim ans

On Error Resume Next

ans = Application.Match(CLng(Label1.Caption), Range("A:A"), 0)
If Not IsError(ans) Then
Label2.Caption = Application.Index(Range("B:B"), ans)
Label3.Caption = Application.Index(Range("c:c"), ans)
Application.Index(Range("j:j"), ans) = "YES"

Else
MsgBox "Invalid code"
End If
On Error GoTo 0
Nor = MsgBox("IS THIS THE RIGHT PERSON?", vbYesNo)

If Nor = vbNo Then
Label1.Caption = InputBox("WHAT IS THE PLAYER'S REGISTRATION NUMBER?",
"Existing Player's re-registration")

Exit Sub
End If

If Nor = vbYes Then
Unload Me
QUESTION1.Show
End If

End Sub

Thanks

greg