A me sa proprio che optime intendesse proprio quello (occhio che quel codice ha un errorino devi dimensionare l'array a 13 non a 12)
codice:
Dim NomeMese(13)