Would this work, have wrote the code but cant test it yet as form is not
built;


Code:
--------------------

i = 1
Do
If InStr(1, Cells(i, 1).Value, txtSearchString.Text) = True Then
'display numbers in datagrid
End If
i = i + 1
Loop Until Cells(i, 1).Value = ""

--------------------


--
gti_jobert
------------------------------------------------------------------------
gti_jobert's Profile: http://www.excelforum.com/member.php...o&userid=30634
View this thread: http://www.excelforum.com/showthread...hreadid=512651