I have a userform containing a textbox for user input.
How can I confirm that this input has not already been added?
Currently the code I'm using is below but doesn't work if the case is different, how can I ensure that the result is not case dependant?
Also, is there anyway to to go back to the textbox if another entry is required?
Code
Dim tbx1 as string
tbx1 = Textbox1.value
On error resume next
If textbox1.textlength = 0 Then
Else
With sheets ("Sheet1")
.cells.Find(what:=tbx1, after:=Range("A1"), matchcase:=False).Activate
If Activecell.Value = tbx1 Then
msgbox("That is already there")
Textbox1.Value = ""
Else
End if
End With
End if
tbx1 = vbnullstring
Display More
Any help much appreciated.