Tabellenreiter farbig von Tina

Private Sub Workbook_Open()
Dim wks As Worksheet
Dim m As Variant
m = Month(Now)
For Each wks In Worksheets
If wks.name = m Then
wks.Tab.ColorIndex = 3
Else
wks.Tab.ColorIndex = 36
End If
Next
End Sub