writing in excel 2003
i am trying to copy and rename an excel workbook but i cant seem so sort it out.
the dates need to start on 01-01-10 and finish 31-12-10
the code i have been working on is below. but i cant find out what the problem is???? please help


Dim nyear As Date

nyear = Format(Now(), "dd-mm-yy")
Do Until nyear = "31-12-10"


FileCopy Source:="M:\settings\Desktop\monthmaster.xls", Destination:="M:\settings\Desktop\" & nyear & ".xls"
nyear = nyear + 1
Loop
End Sub