Date as date name

[NISMOJim]

OK, here's a little thing that's driving me nuts tonight. Since today's date is 10/4/12, how come MyLastMonth isn't coming out to be "September"? Instead, I'm getting a runtime error 13 type mismatch. When I hover my mouse over MyLastMonth it shows MyLastMonth=12:00:00 AM.

Dim MyDate As Date
Dim MyLastMonth As Date


'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
MyDate = Date
MyLastMonth = Format(MyDate, "mmmm")


MyLastMonth = MyLastMonth - 1

I've come a long way in my code tonight only to be set back by something as simple as this!

[June7]

Result of Format function is a text string.

Format(MyDate,"mmmm") should return January, February, etc. and can't subtract 1 from 'January'

Try:
Format(DateAdd("m",-1,Date()),"mmmm")

[NISMOJim]

Thank you June7, perfect!