VBA to Move to a Row While Keeping a Few Rows Visible on Top

[daveG777]

When I use find or goto, the row I'm looking for stays on top.

I'd like to get to the row while leaving a few rows visible on top. For example, I tried using VBA to find some text in row 55, or to goto row 55, but I want to keep visible the three rows on top, 52-54.

 

[johnnyL]

Can you be more specific on how you are getting to row 55, for example?

 

[daveG777]

I just used Find to look for specific text in a cell. In this case, it was

Cells.Find(What:="Sam Davis", After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

 

[johnnyL]

I can't duplicate your situation. When I run the code from your last post, the found cell is in about the middle of the displayed rows on the sheet.