Shade Weekends in Calendar

[snb]

or

replace

[VBA]Range(Mid(c01, 2)).Interior.ColorIndex = 15 [/VBA]

by

[VBA]
For Each ar In Range(Mid(c01, 2)).Areas
ar.Resize(10).Interior.ColorIndex = 15
Next

[/VBA]