Private Sub TextBox1_Change()
Set lookv = Sheets("sheet1").Range("D:D")
text1 = Trim(UserForm1.TextBox1.Value)
With Application.WorksheetFunction
If .CountIf(lookv, text1) 1 And text1 < "" Then MsgBox "dup entry"
End With
End Sub



On Oct 19, 4:26*pm, Jock wrote:
Users can input numeric values into Textbox 1 on userform1.
Upon exit from the textbox, how do I check Sheet1, column D for the same
value (ie a duplicate)?
tia
--
Traa Dy Liooar

Jock