指定のセルに移動

'Sheet1 の Z100 に移動

Sheets("Sheet1").Range("Z100").Select

セルが左上端になるように移動したい

Sub アクティブセルを画面の左上端に表示()

Sheets("Sheet1").Range("Z100").Select

With ActiveWindow
.ScrollRow = ActiveCell.Row
.ScrollColumn = ActiveCell.Column
End With

End Sub

Follow me!