Boa tarde!!

Sub AleVBA_26338()
'ActiveCell.Formula = "=TEXT(A1,""MM"")"
'ActiveCell.Formula = "=MONTH(A1)"
    With ActiveCell
        .Formula = "=MONTH(A1)"
        .Value = .Value
    End With
End Sub

Arr

opa, valeuuuu

testei aqui e funciona mas, ele joga uma fórmula na célula.
Queria tentar jogar apenas o valor.

muito obrigado pela ajuda irmão.

Abraço.

Boa tarde.
Experimente:

Sub MesDaData()
On Error GoTo erro_mes
Dim mes As Integer, vdate As Date

vdate = Range("a1").Value
mes = VBA.Month(vdate)
ActiveCell.Value = mes

Exit Sub
erro_mes:

End Sub

Boa tarde!!

Reveja o código no Post#2, eu editei para

.Value = .Value

Att