【エクセル】全シートのカーソルを左上にそろえる #ジョーク

【エクセル】全シートのカーソルを左上にそろえる

sample.xls

Sub 左上に揃える()

  Application.ScreenUpdating = False
  Application.Calculation = xlCalculationManual

  Dim sht As Variant

  For Each sht In ActiveWorkbook.Sheets
    If sht.Visible <> xlSheetHidden Then
      sht.Select
      ActiveWindow.ScrollColumn = 1
      ActiveWindow.ScrollRow = 1
      Range("A1").Select
      ActiveWindow.Zoom = 100
    End If
  Next
  ActiveWorkbook.Sheets(1).Select

  Application.ScreenUpdating = True
  Application.Calculation = xlCalculationAutomatic

End Sub

※参考

エクセル、空っぽのシートを見つける
https://qiita.com/santarou6/items/f0aa6b52703d5306051a