Boa tarde!!

Você precisa de vba para isso?

Considerando que a célula selecionada está com o formato data
Seleciona a célula desejada e tente isso

Sub Teste()
    Dim Cell As Range
    For Each Cell In Selection
        With Cell
            .NumberFormat = "@"
            .Value = Format(.Value, "mmmm")
        End With
    Next Cell
End Sub

Att

vc pode usar formula
=TEXTO(A1;"mmmm")
ou usar como quer e simplesmente formatar o tipo de data da celula

Formatar celulas > Personalizado

MMMM

E pronto

Agora me pergunto pq digito a data em uma celula e uso =celula em outra pra aparecer a data na outra celula, nao seria melhor digitar diretamente ou neste caso colocar um formula mais apropriada e formatar como sugerido.

Por exemplo =hoje() é bem melhor que =celula.

Obrigado, pelas respostas, não vou poder testar hoje, vou testar amanhã.

Prudêncio

Agora me pergunto pq digito a data em uma celula e uso =celula em outra pra aparecer a data na outra celula, nao seria melhor digitar diretamente ou neste caso colocar um formula mais apropriada e formatar como sugerido.

Por exemplo =hoje() é bem melhor que =celula.

Quando temos conhecimentos, mais ou menos avançados, tudo se torna mais simples. A ideia é criar uma tabela para fazer a busca de trabalhos que efectuei durante determinado mês. Talvez haja uma forma mais prática de fazer essa busca. Ou poderia fazer a coisa de forma rudimentar, escrever numa célula a data em que efectuei o trabalho e depois numa outra apenas o mês.
De qq das formas obrigado pelo auxílio.

Depois várias tentativas, optei por esta linha de código #Folha2.Range("E2:E2000").Value (Format(Date, "mmmm"))#, mas não é funcional.
Isto porque apesar da efectuar a conversão da data, (Ex: 18-03-2016 = Março) na verdade o registo na célula continua a ser 18-03-2016 e como os intentos são fazer a busca por mês, resulta em nada pois o mês não se encontra registado.
Haverá portanto, alguma forma de fazer chegar à coluna a data já convertida em texto.
Baseado no meu desconhecimento, tenho tentado linhas de codigo dentro de " Range("A:A").Cells(emptyRow, 5).Value = Sheets("Menu").Range("b4") = Format(Range("b4").Value, "mmmm") " que me parece uma boa linha, mas o resultado é "FALSO". Vou continuar a ler
Obrigado

Resolvi! Fiz a conversão da data para uma outra célula com =Texto(A1;"mmmm") e depois daqui, o comando inserir a partir desta célula exporta o mês!