Skift farve på faneblad

Hej jeg har en vagt plan delt i måneder, jeg har prøvet med denne VBA til at få farven på Fanebladet som den dato man er i nu til at skifte månedens danske navn står i celle E1, men den behøves måske sket ikke. VBA koden ligger i Denne produktions mappe, men den due ikke hvad er der galt, nogen der kan hjælpe?

Private Sub Workbook_Open()

Dim WS As Worksheet
Dim MountNu As String
MountNu = Range("E1") & WorksheetFumktion.MountNow()
For Each WS In ThisWorkbook.Worksheets
If WS.Name = MountNu Then
WS.Tab.ColorIndex = 4
Else
WS.Tab.ColorIndex = xlColorIndexNone
End If
Next

End Sub

Hilsen Klaus W