Excelファイル開くとセル”A1”になるようにしたい【VBA】

経緯

上司が「誰かに見てもらうExcelファイルのRangeは”A1”にしておくように」と言われ、私はそれをわすれてしまうので、

VBAでどうにかできないか考えてみました。

ThisWorkbookにコードを書く

手順を書きます。

まず、 VBA開きます。

左のプロジェクトの中に”ThisWorkbook”とあるので、それをダブルクリックします。

コードを書いてきます。

Private Sub workbook_open()
   Worksheets("Sheet1").Activate
   Range("A1").Select
End Sub

↑こんな感じ。

すると、ファイルを開くたびに”Sheet1″のRangeが”A1”になっていると思います。

参考になれば、幸いです。

ここまで読んでいただきありがとうございました。