Boa tarde.
1) O VBA, ao contrário do Excel, é fortemente Case Sensitive então ao alterar caracteres para maiúsculas/minúsculas isso acaba trazendo problemas na hora de efetuar comparações (de igualdade, por exemplo, em laços de decisão). Para minimizar essas situações, use, na área de declarações, (ao nível de módulo) a seguinte instrução (abaixo de Option Explicit):
Option Compare Text
2) No VBA, vc não precisa recorrer à função de planilha PRI.MAIÚSCULA (Proper). Ao invés disso, use a função StrConv do próprio VBA:
CB_Mth.AddItem StrConv(Format(DateSerial(Year(Date), Month(Date) + i, 0), "mmmm"), vbProperCase)
Postado : 16/04/2018 2:07 pm