Here is one I am working of for a client where they type in the title or
PARTIAL title and they are taken to that cell. It auto sorts and goes to the
1st column. You will want to modify to suit.

Sub placed in the sheet module

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 8 Then
lr = Cells(Rows.Count, 1).End(xlUp).Row
Range("Sort_Area").Sort Key1:=Cells(3, Target.Column), _
Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Cells(3, Target.Column).Select


x = UCase(Cells(1, Target.Column))
ml = Len(x)
For Each c In Range("h3:h" & lr)
If Left(Trim(UCase(c.Value)), ml) = x Then
Exit For
End If
Next
Application.Goto Cells(c.Row, 1), scroll:=True
End If
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Teddy-B" wrote in message
...
Thanks for looking. I have a list of social security numbers on file in a
single column of a spreadsheet. The other related colums contain data such
as
last, first names, birthdays, etc. I would like to set up something like
CTRL-f and go to the whole row that contains the SS# and all related info.
I
have set up a data box that the user will input the SS# that they want to
query. I just need to know what to use to go to the row taht contains the
data.

Any suggestions will be appreciated

PS~ I don't want to use CTRL-f becuase it leaves the find window up and it
looks a little tacky.