カレンダー的な内容のExcelファイルを開くときに、その日の曜日を示すセルが自動的にアクティブになるようにしたい

Excel ファイル上に、日～土曜日までを含む週間カレンダー的な内容がある。このファイルを開いたときに、自動的にその時の曜日を表すセルがアクティブになるようにしたい。
そのファイルのThisWorkbook モジュール上にVBAで、そうなるように書いてみた。

Excel ファイル上に、日～土曜日までを含む週間カレンダー的な内容がある。このファイルを開いたときに、自動的にその時の曜日を表すセルをアクティブにしたい。
理由は、ファイルを開いた直後に「あ～今日何曜日だっけ？」と考える時間と労力を省略したいので（笑）

Microsoft Excel for Microsoft 365 MSO (16.0.13127.20402) 64 ビット

対象のExcel シートはブックの中の1番目のもので、内容は以下のようなものである。

VBEで[ThisWorkbook] モジュール上に、以下のようなコードを書いてみた。

Option Explicit

Private Sub Workbook_Open()

‘変数の宣言
Dim d As Date, daynum As Long

‘シート1を選択
Worksheets(1).Select

‘現在の日付を取得
d = Date

‘現在の日付から曜日を取得
daynum = weekday(d)

‘現在の曜日に対応するセルを選択
Select Case daynum
Case 1
Range(“J6”).Select
Case 2
Range(“D6”).Select
Case 3
Range(“E6”).Select
Case 4
Range(“F6”).Select
Case 5
Range(“G6”).Select
Case 6
Range(“H6”).Select
Case 7
Range(“I6”).Select
End Select

End Sub

そしてこのファイルを、Excel マクロ有効ブックとして保存した。

このファイルを開くたびに、その日の曜日のセルがアクティブになるようになった
また試しに、PCの日付を違う曜日のものに無理やり変えてみてから開いたところ、その違う曜日のセルがアクティブになった。