excel - チェックボックスがオンになっている場合は、Excelフィールドに将来の日付を入力します

Question

チェックボックスをオンにした後、次を使用して今日の日付をExcelセルに挿入しています。次の日曜日の日付が挿入されるように変更したいと思います。Weekday関数を使用してみましたが、構文が正しくないか、これが適切なアプローチではありません。手伝ってくれますか？

Sub Process_CheckBox()

   Dim cBox As CheckBox
   Dim LRow As Integer
   Dim LRange As String

   LName = Application.Caller
   Set cBox = ActiveSheet.CheckBoxes(LName)

   'Find row that checkbox resides in
   LRow = cBox.TopLeftCell.Row
   LRange = "D" & CStr(LRow)

   'Change date in column D, if checkbox is checked
   If cBox.Value > 0 Then
      ActiveSheet.Range(LRange).Value = Date

   'Clear date in column D, if checkbox is unchecked
   Else
      ActiveSheet.Range(LRange).Value = Null
   End If

End Sub