シート"土曜日の小計"のＡ２から、祝日と会社の休業日以外の土曜日を書いていくマクロを考えています。

（シートカレンダーのＡ列に日付、Ｂ列にＡ列の日付が祝日であれば"1"が入力してあり、Ｃ列に会社の休業日なら"１"が入力してあります）

このマクロだと、「424 オブジェクトが必要です」になります。どう書けば良いですか？



Dim a As Long,r As Long

a = 2

For r = 1 To 365

　If Weekday(DateAdd("d", r, Date)) = 7 And _

　　　Worksheet.Function.VLookup(DateAdd("d", r, Date), Sheets("カレンダー"), 2, False) <> 1 And _

　　　 Worksheet.Function.VLookup(DateAdd("d", r, Date), Sheets("カレンダー"), 3, False) <> 1 Then

Sheets("土曜日の小計").Cells(a, 1) = DateAdd("d",r,Date)

　　a = a + 1

End If

Next bc