VBA to search column for weekend and color range

[joh1135]

I have each day of the year in column I12:I376.

I have been searching the board to find a way to change the background color of each row range (I:AT ), if the value in column I is equal to a weekend.

Thank you for your help

 

[venkat1926]

Sub test()
Dim r As Range, c As Range
Set r = Range(Range("I12"), Range("I12").End(xlDown))
For Each c In r
If Weekday(c) = 6 Or Weekday(c) = 7 Then
c.Interior.ColorIndex = 3
End If
Next c
End Sub