I'm using the following code to find a text entered in a textbox to
keep the user from entering a duplicate text, but it's searcing the
entire sheet. I just want the code to search column A.

Cells.Find(What:=TextBox1, After:=ActiveCell,
LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext,
MatchCase:=False) _
.Activate


How do I set the find for column A only?
Darrell