Hi Josh

This will work umpteen times faster if you use the built-in search engine
instead of a VBA loop:

Private Sub CommandButton1_Click()
Dim R As Range
On Error Resume Next
Set R = Range("B3:B60000").Find(What:=TextBox1.Text, _
LookAt:=xlWhole)
If R Is Nothing Then
MsgBox "Bummer"
Else
R.Select
End If
End Sub

HTH. Best wishes Harald

"jhahes" skrev i
melding ...

I am having a problem with a text box trying to find a number format in
a column


Here is what i have


Range("B3").select

Do

If activecell.value < TextBox1 then
activecell.offset(1,0).select
End if

Loop Until activecell.value = TextBox1


I enter 61630 in TextBox1

when it loops it goes all the way until 65655, and 61630 is in the 3rd
row.

I think it is trying to find text when 61630 is a number. However, I
really don't want to change the field to a text field, because other
columns are linked to them.

any help would be helpful

Thanks
Josh


--
jhahes
------------------------------------------------------------------------
jhahes's Profile:
http://www.excelforum.com/member.php...o&userid=23596
View this thread: http://www.excelforum.com/showthread...hreadid=385678