Is this what you need?

Sub findandscroll()
Application.Goto Range(Columns(1) _
..Find(4).Address), Scroll:=True
End Sub

--
Don Guillett
SalesAid Software
donaldb@281.com
"E. J. Murphy" <EJMurphy@discussions.microsoft.com> wrote in message
news:BE6A0161-66B5-4A51-871B-0041B8099801@microsoft.com...
> Is it possible to change the location on the page, where FIND
highlights
> the found cell?
>
> In the worksheet I am searching, some of the listings can have quite a
> few rows. When FIND locates and highlights the found cell, it appears in
the
> middle of the page. And, some of the rows are below the bottom of the
visible
> page.
>
> To be more specific, can Excel be changed to have the highlighted cell
> appear at the top of the page?
>
> Thanks