excel skift selv ark hvert år

hej exeperter

jeg har et Excel ark til og holde styr på alle mine timer men jeg ville gerne have det skiftet ark vært år har denne kode
har end til videre har jeg manuelt skiftet arks navn ("Arbejdstimer 2013")

::::KODE::::

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Arbejdstimer 2013").Range("A:A").Select
   
        Selection.Find(What:=Date, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Offset(0, 4).Activate ' 3 kolonner til højre for A kolonnen
        ActiveCell = Now()
End Sub





Private Sub Workbook_Open()
Sheets("Arbejdstimer 2013").Range("A:A").Select
    Selection.Find(What:=Date, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Offset(0, 2).Activate ' 1 kolonne til højre for A kolonnen
        ActiveCell = Now()
       
  Call ScheduleCopyPriceOver

End Sub

::::KODE::::