Boa tarde,

Estou criando uma macro que ao clicar em gravar, o sistema grava o mês da data de hoje por extenso, mas no VBA não estou conseguindo fazer a fórmula. Estou tentando o código abaixo, mas apresenta erro:

ActiveCell.Offset(0, 15).Value = If(month=1 then "Janeiro" else if
(month(now)=2 then "Fevereiro" else if
(month(now)=3 then "Março" else if
(month(now)=4 then "Abril" else if
(month(now)=5 then "Maio" else if
(month(now)=6 then "Junho" else if
(month(now)=7 then "Julho" else if
(month(now)=8 then "Agosto" else if
(month(now)=9 then "Setembro" else if
(month(now)=10 then "Outubro" else if
(month(now)=11 then "Novembro" else if (month(now)=12 then "Dezembro" else "" end if

Conseguem me ajudar? Desde já, agradeço.