获得一年中的所有日期以及周末
我现在知道年份和月份，比如2006年，5月

我要做的事是向EXCEL的某一行填写以下内容：

2006年5月至年底所有的日期，凡遇到周六和周日，则要修改相应的CEll颜色
（不同的年份2月的日期还不同）
我应该怎么做呢，有没有一些有用的方法，无从下手，请大家帮帮忙啊

[解决办法]
Private Sub Command1_Click()
Dim dd As Date
dd = CDate( "2006-05-01 ")
Do While (Year(dd) = "2006 ")
If Weekday(dd, vbMonday) = 6 Or Weekday(dd, vbMonday) = 7 Then
Debug.Print dd; "(周末) "
Else
Debug.Print dd
End If
dd = DateAdd( "d ", 1, dd)
Loop
End Sub