Here is my code:


Option Explicit

Dim month as String
Dim currentDateAndTime as Date
Dim i as Integer

currentDateAndTime = Now

For i = -11 to -1
      month = Format(DateAdd("m", CDbl(i), currentDateAndTime), "mmmm")
Next i

About half the time, I get a runtime error '6' Overflow error.

What gives????

Thanks for the help!