Visual Basic - nombre de mes

Option Explicit

Sub NumeroMesANombre()

    Dim cell As Object

    Dim meses(1 To 12) As String

    meses(1) = "Ene": meses(2) = "Feb": meses(3) = "Mar": meses(4) = "Abr"

    meses(5) = "May": meses(6) = "Jun": meses(7) = "Jul": meses(8) = "Ago"

    meses(9) = "Sep": meses(10) = "Oct": meses(11) = "Nov": meses(12) = "Dic"

    For Each cell In Selection

      If cell >= 1 Or cell <= 12 Then

        cell = meses(cell)

      End If

    Next cell

End Sub