Hi. "ªü¤T" . One common way is to look at the first day of next month,
but instead of using 1, use 0 to return the previous day.

dte = Int(Now)
NumDays = Day(DateSerial(Year(dte), Month(dte) + 1, 0))
' or with atpvbaen.xls loaded...
NumDays = Day(EOMONTH(dte, 0))

--
Dana DeLouis
Win XP & Office 2003

"ªü¤T" wrote in message
...
As subject, many thanks.