Try this:

Private Sub CommandButton2_Click()

With ActiveWindow.ActivePane
.LargeScroll , 256, , 256
Cells(.ScrollRow, .ScrollColumn).Select
End With

End Sub

However, I recall there are problem if rows/columns are hidden just under/to
the right of the split(s)
Also, the effect will depend on whether panes are frozen or not.

NickHK

"Sam" wrote in message
...
What is a vbCommand for Ctrl + Home? I want to scroll up and left on all
worksheets in a Private Sub Workbook_Open when there are various Freeze
Panes
settings, so I cannot select a particular cell in all sheets.

Thanks in advance,

Sam