Sub go_to_num()
whatnum = ActiveSheet.Range("C3").Value
With ActiveSheet.UsedRange
Set c = .Find(whatnum, LookIn:=xlValues, lookat:=xlPart)
If Not c Is Nothing Then
FirstAddress = c.Address
Do
c.Select
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address < FirstAddress
End If
End With
End Sub


Gord Dibben MS Excel MVP


On Mon, 26 Oct 2009 07:25:01 -0700, Teddy-B
wrote:

Can anyone help me? I have a list of names, addresses, SS #'s, etc. 5,000+ on
the list. I would like for the user to be able to type a SS# into a cell (C3)
and have a macro to find the unique (SS#) number in the list and then GO TO
that #. The user needs to be able to GO TO the row of data associated with
the unique (SS#) number that they typed into (C3).
I CANNOT GET EXCEL to FIND and GO TO with a macro. WHY, WHY, WHY????
I have tried everything for a week now and I'm at the end of my line....I
hate to give up. So if you hate to give up too and have ever felt alone and
defeated, please give me a hand up and help me to get this one...

Thanks: