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]

[craigos]

xld, yet again your expertise has proven invaluable.....as a beginner attempting to progress to the next level the advice and help given by these forums will hopefully get me there one day.
Thank you so much, we have supermarket in the UK that uses the slogan: Every Little Helps: and how true with vba.

snb: Likewise with my sentiments, I am learning and learning and sometimes what can seem simple can be difficult to understand, but I am trying my best to not just use the code but undertand it and how it works correctly.

VBA can be annoying, frustrating and crazy but the most rewarding area of IT I have ever attempted, although late in my working years to vba (still got more to go yet!!), I love it and without people like you who give your time and knowledge to learners like me and point us in the right direction we (and sometimes our companies) could never progress.

Thanks Again.....

Craig
The more I learn the more I want to know.