Код Excel VBA не работает из-за синтаксической ошибки

Question

Я использую следующий код, чтобы проверить, содержит ли ячейка слово «суббота» или «воскресенье». Если да, я хочу добавить текст в другие ячейки. При выполнении кода Excel зависает (я думаю, что он застрял в цикле?).

Sub sbFORMAT()

'delete all shiftdata
Sheets("ploegregeling").Activate

Range("ploeginput").UnMerge
Range("ploeginput").ClearContents
Range("ploeginput").ClearComments


'color weekends blue (= add W in cell, conditional formatting adds blue color + text)

Dim dag As Integer
Dim rij As Integer
Dim rij2 As Integer
Dim rij3 As Integer

dag = 3
rij = 5

Do Until dag = 33

rij2 = rij + 2
rij3 = rij2 + 17

If Cells(dag, rij).Value = "Saturday" Or Cells(dag, rij).Value = "Sunday" Then Range("Cells(dag, rij2), Cells(dag, rij3)").Value = "W"

dag = dag + 1

Loop


End Sub

Код должен добавить W в каждую ячейку в диапазоне G7:G24,H7:H24,N7:N24 и т. Д. Если написать в ячейке W, он станет синим (условное форматирование). Это работает, делая это вручную.