Excel VBA 全ワークシートをA1セルにする方法

全ワークシートをA1セルにする

Excelを保存する際にすべてのワークシートをセルA1にするのがお作法みたいですね＼(^o^)／

そんな目くじらたててまでA1にする必要あるのか・・・別にどうでもよくね？と思うことは、VBAでマクロ化するに限りますね。こんなことに時間使うのはもったいない！

ってことで以下がVBAの例です。

Sub 全ワークシートをA1にするマクロ()
  Dim WS As Worksheet
  For Each WS In Worksheets
    WS.Select
    WS.Range("A1").Select
  Next
  Sheets(1).Select
End Sub