is it possible to place active cell at center of screen? I have this code which places it at top part of screen...

[sadams1]

Thank you for taking time to consider this question! The following is a useful macro to place the active cell at the top of the screen but wanted to see if, instead, the active cell could be placed in center.


Sub cellTopLeft()
'
' topLeft Macro
'
' Keyboard Shortcut: Ctrl+Shift+L
'

Application.Goto ActiveCell, Scroll:=True
End Sub

 

[MARK858]

How would you have cell A2 in the center of the screen if it was the Activecell?

 

[sadams1]

Sorry about not being more concise or including some screenshots. Attached are 2 screenshots that show the initial active cell F28 at the lower part of the screen & then repositioned more toward the center. Most of the spreadsheets I work with have thousands of rows & the active cell, or more precisely, the row of the active cell, gets parked somewhere way off the screen. I know various ways to do this but the code in my initial post makes getting the active cell to the top part of screen quick & easy & I wanted to see if something similar could get the active cell positioned more toward middle of screen.

 

[MARK858]

You could try something like

Sub ScrollTo()
If ActiveCell.Row > 13 Then ActiveWindow.ScrollRow = ActiveCell.Row - 13
End Sub

 

[sadams1]

Fantastic! Thank you very much!

 

[MARK858]

You're welcome