Se os nomes das plans forem Janeiro, Fevereiro, Março, Abril .......

Então pode usar esse código:

Sub Workbook_Open()
For Each plan In ThisWorkbook.Worksheets
If Month("1/" & plan.Name) = Month(Date) Then
plan.Tab.Color = 1000
Else
plan.Tab.Color = xlAutomatic
End If
Next
End Sub

Abrç!

@xlarruda
deu certinho, é oque eu precisava, mas se tiver como fazer funcionar com os meses abreviados tipo: JAN, FEV, MAR....

Tenho quase certeza que funciona dessa forma tbm. Vou testar aqui e te falo...

Edit

Conforme eu já imaginava, dá certo tbm com os nomes dos meses abreviados.

Abrç!