previous month

[SAM1961]

Hi. I am facing a problem. I want month name not the current month but any month to change in previous month name in excel VBA.
I have a form where user fills the month name. This month name I want to change in previous month i.e; subtract one to get the previous month.
thanks

 

[Special-K99]

Something like this (Am no VBA expert)

With Month name in A1...

Sub k1()
var1 = Left(Range("A1"), 3)
var2 = InStr("JanFebMarAprMayJunJulAugSepOctNovDec", var1)
If var2 = 1 Then var3 = 12 Else var3 = ((var2 - 1) / 3) Mod 12
var4 = MonthName(var3)
MsgBox var4
End Sub