Hi,
I don't know whether this is what you are looking for but if you put
the following code in.
Now when you put the first letter in B1 it will automatically jump to
that row.

HTH.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address < "$B$1" Then Exit Sub
Set x = Columns(1).Find(Target.Value)
Application.Goto Range(x.Address), Scroll:=True
End Sub


--
greg7468


------------------------------------------------------------------------
greg7468's Profile: http://www.excelforum.com/member.php...fo&userid=9031
View this thread: http://www.excelforum.com/showthread...hreadid=382960