Code funktioniert unter Excel 2007 nicht mehr

Private Sub Workbook_Open()
Dim i
Dim Status
For i = 1 To Sheets.Count
Sheets(i).Tab.ColorIndex = xlNone
Next i
On Error GoTo ende
Status = Format(Date, "MMMM YYYY")
With Sheets(Status)
.Tab.ColorIndex = 42
.Activate
End With
ende:
End Sub

... soll bedeuten, dass Tabellenblatt aktiviert und farblich markiert ist, (es handelt sich um eine Zeiterfassung) wo der aktuelle Monat draufsteht. Nur jetzt unter Excel 2007 funktioniert das nicht mehr. Kann mir da jemand behilflich sein?
Vielen Dank schon mal im Voraus!