Data em maiúsculo

Question

Bom dia!
Tenho uma data em uma célula, mas quero format-ala para apresentar apenas o mês todo em maiúsculo.
Exemplo: a data é 23/08/2017, mas quero que apareça AGOSTO.
Porém não quero usar a função maiúsculo, porque aí preciso transformar a data em texto e eu preciso preserva-la com a data pois tenho cálculos usando esta data.

Desde já agradeço!

Answer 1

Pode deixar as fórmulas como estão.

Este código transforma o texto que está na célula em maiúsculas:

ThisWorkbook.Sheets("Palnilha1").Range("A1") = Ucase(ThisWorkbook.Sheets("Palnilha1").Range("A1"))

---

Anderson Diniz

Answer 2

Muito obrigado Anderson!