Hi,

Not fully tested but try:

Private Sub cmdADD_Click()
Dim iRow As Long
Dim ws As Worksheet
Dim Msg, Style, Title, Help, Ctxt, Response
Title = "Player Exist"
Style = vbYesNo + vbCritical + vbDefaultButton2
Set ws = Worksheets("1999 Upper Deck")

'find first empty row in database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row

'check for a part number
With UserForm1
If Trim(.txtNumber.Value) = "" Then
Me.txtNumber.SetFocus
MsgBox "Please enter the card number"
Exit Sub
End If
'''' check to see if exist '''
'On Error Resume Next
Cells.Find(What:=.txtname, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate

If ActiveCell.Value = .txtname Then
Msg = "Alreadey exist " & .txtname & " Do you want to replace info?"
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then
ActiveCell.Offset(, -2).Value = .txtNumber
ActiveCell.Offset(, -1).Value = .txtQuantity
.txtNumber.Value = ""
.txtQuantity.Value = ""
.txtname.Value = ""
.txtNumber.SetFocus
Exit Sub
Else
Exit Sub
End If
End If
'copy the data to the database
ws.Cells(iRow, 1).Value = .txtNumber
ws.Cells(iRow, 2).Value = .txtQuantity
ws.Cells(iRow, 3).Value = .txtname
'clear the data
.txtNumber.Value = ""
.txtQuantity.Value = ""
.txtname.Value = ""
.txtNumber.SetFocus
End With


HTH

Charles