Hjælp til kode ændring

Jeg har en kode der Gemmer nogle "timesedler" ark 1 i en mappe C:\Data\2009 og overfører ark 1 til ark 2 efter hinanden. Dette er OK
Kan nogle ændre kode således at der gemmes som nu men ved årsskifte oprettes der en mappe 2010, 2011 osv hvis den ikke findes og ark 1 gemmes så i denne.

Sub GemEtEnkeltArk()
    myfilename = Range("B2").Value
    Application.ScreenUpdating = False
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs "C:\Data\2009\" & myfilename & ".xls"
    ActiveWorkbook.Close
    Application.ScreenUpdating = True
End Sub

Mvh
Petert