VBA Month And Day With A Do While Loop

Sub EnterDates() myDate = "2/3/2008" Row = 4 Col = 2 Do While Col <= 51 Cells(Row, Col).Value = Month(myDate) & Chr(10) & "-" & Chr(10) & Day(myDate) myDate = DateAdd("d", 1, myDate) Col = Col + 1 Loop End Sub

Pulled from: VBA Month And Day With A Do While Loop