Move active row to top of visible rows (auto-scroll based on active cell)

[RogerC]

I need whatever row currently contains the active cell to always be in the top-most position of the visible data range in my spreadsheet (the first row visible under the horizontal freeze pane split).

Just for example, my spreadsheet is split and frozen at row 3. If I click into any cell in row 7, I would like the spreadsheet to automatically shift up so that row 7 appears directly under row 3 (with rows 4, 5, 6 hidden under the split). In other words, I need the active row to always position itself as the top row immediately under the upper pane of the horizontal split.

Can this be done with VBA?

 

[RickXL]

Does this do what you want?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ActiveWindow.ScrollRow = Selection.Row
End Sub

 

[RogerC]

Perfectly! Thanks very much RickXL.

 

[RickXL]

No problem - thanks for the feedback.