If number in column duplicated on sheet change then problen

May be this,,,?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim EvalRange As Range
    
Set EvalRange = Range("a4:a10000")

If Intersect(Target, EvalRange) Is Nothing Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub

Target.NumberFormat = "0000"

If WorksheetFunction.CountIf(EvalRange, Target.Value) > 1 Then
    MsgBox Target.Value & " has already been used." & vbCr & "Do you want to use the same number (cancel) or enter a new one (retry)?", vbInformation, "Value Already Exist"
    
    Application.EnableEvents = False
        Target.Value = ""
    Application.EnableEvents = True
End If

End Sub

Originally Posted by djon5020

My code did that but when I went into another cell eg D4 and typed soemthing in then left the cell the check on A5:A1000 fires off again. It does it for every cell I change in that row.

My suggested method of code will exit soon when the entry don't happen in Range("a4:a10000")