Private Sub Workbook_Open()
に記述してあるコードはもし前年の表ならＢ２セルを今年用に書き換える、というコードですよね。
1年に1回で済む操作を毎日のように繰り返す、という意味がよくわからないです。
年度末に1回だけここを手動で来年度ならＢ２に2020と書き込むだけでいいのではないですか？
それより
Private Sub Workbook_Open()
に本日の列が表示されるコードを書きこむべきかと・・・・
開いたときに「今日」の列を注目したいということではないですか？
それには日付を検索する必要があります。日付を検索するにはX2から右のセルに整数値ではなく日付シリアル値を入れる必要があります。
X2セルに
=DATE($B2,$C2,COLUMN(A1))
と入れてセルの書式設定、表示形式、ユーザー定義で d とします。
この作業はガントチャートを作る上でも必要です。整数のままでは条件付き書式の数式が複雑になりすぎます。
X3セルに
=TEXT(X2,"aaa")
と入れます。
X2:X3を右にコピーします。
そのうえでコードを
Private Sub Workbook_Open()
Dim tday As Long, x As Variant
Sheets(1).Select
tday = Date
x = Application.Match(tday, Rows(2), 0)
If IsError(x) Then
MsgBox "エラー! "
Exit Sub
Else
Rows(2).Interior.ColorIndex = xlNone
With Cells(2, x)
.Select
.Interior.Color = XlRgbColor.rgbPaleGreen
End With
End If
End Sub
とすると開いたとき「今日」のセルが中央に来ます。マクロを使わないでチェックボックスだけでどうしようとしていたのでしょうか？基準日に設定しただけではセルは動かないのですが・・・
