if構文のエラー vbaでセルの色を変えたい

Question

勤務管理表作成で土日に色を付けようとしています。

【条件付きを用いない理由】
条件付き書式設定を用いないのは、曜日の横にも色を付けたいからです。
vbaを用いたほうが今回は早いと思い、vbaで実施しています。

【書いたコード】
下記に書いたコードを記載致します。

Dim i As Long
Dim sat As String

sat = "土"

'土曜日の色を変える
For i = 7 To 466

If Worksheets(Worksheets(色替え).Cells(2, 2).Value).Cells(i, 2) = sat Then
Range(Cells(i, 1), Cells(i, 25)).Font.Color = vbRed

End If
Next i
End Sub

ここでworksheets(色替え）には祝日の日にちなどが記載して、ここにある年の祝日を記載すれば、その年の管理表を作成できるようにしたく、上記のようなコードになっています。

【困っている点】
If Worksheets(Worksheets(色替え).Cells(2, 2).Value).Cells(i, 2) = sat Then
ここでエラーになります。
原因が分からなく、質問致しました。拙い質問かもしれませんが、宜しくお願い致します。

Comments

[radames1000]

エラー内容も書いていただくと助かります。

[somechan1]

返事遅くなり、申し訳御座いません。
今後はエラー内容も記載するよう致します。
ご確認頂き、ありがとうございました。

Answer 1

If Worksheets(Worksheets(色替え).Cells(2, 2).Value).Cells(i, 2) = sat Then

これは下記と同じ意味です

dim x
x = Worksheets(色替え).Cells(2, 2).Value
If Worksheets(x).Cells(i, 2) = sat Then

worksheet名の指定をWorksheets(色替え).Cells(2, 2).Valueの値で指定しています。
また、(色替え)は変数名　色替えの値を使用しています。
事前定義していないためこれもエラーの原因です。
色替えsheetを参照したいのであれば下記で動きます。

If Worksheets("色替え").Cells(i, 2) = sat Then

（推奨）
dim x
x = "色替え"
If Worksheets(x).Cells(i, 2) = sat Then

（非推奨）
dim 色替え
色替え = "色替え"
If Worksheets(色替え).Cells(i, 2) = sat Then

上記はエラーコードがないため推測です。
エラーコードがあればより正確な回答が出来ます。

Comments

[somechan1]

返事が遅くなり、申し訳御座いません。
コメントおよび丁寧な解説
誠にありがとうございます。
おかげで解決することが出来ました！

Answer 2

「色替え」シートならこう書きます。

Worksheets("色替え")

ただ、曜日の横に色を付けるのも普通に条件付き書式でできるんですよね…

【エクセル時短】セルじゃなくて「行全体」の色を変えたい！ 条件付き書式を工夫して見やすくするワザ

Comments

[somechan1]

返事遅くなり、申し訳御座いません。
コメントありがとうございます。
おかげで解決することが出来ました！