Excelent, thank you



-----Original Message-----
The apparent solution would be to subtract inside the
format statement
cmbPer.Value = Format(Month(Date)-1, "mm")

but that won't handle the January.

cmbPer.Value = Format(DateSerial(Year(date),Month(date)-
1,1),"mm")

Should be more robust.

--
Regards,
Tom Ogilvy



"TO" wrote in
message
...

cmbPer.Value = Format(Date, "mm")-1

this is exactly how I am doing it. My fiscal year
starts
in Feb so Oct is actually per 9, but my result is "9"
not "09". Any thoughts?


-----Original Message-----
Think you are already there. From the immediate
window:

dt = dateserial(2004,2,3)
? Format(dt, "mm")
02


--
Regards,
Tom Ogilvy

"TO" wrote in
message
...
Hello All,

I have some code that places the numeric value of
the
current month (i.e. 12, 11) in a combo box when the
userform is activated. I would like it to show
a "0"
in
front of the single-digit months (09). I am using
the
following code on userform activate.

cmbPer.Value = Format(Date, "mm")

I am using a combo box to give the user the option
of
selecting a different month, if necessary.
Thanks


.



.