One way:


Public Function DaysInMonth(vDate As Variant) As Variant
Dim nDaysInMonth As Long
On Error GoTo ErrHandler
nDaysInMonth = Day(DateSerial(Year(vDate), Month(vDate) + 1, 0))
DaysInMonth = nDaysInMonth
Continue:
On Error GoTo 0
Exit Function
ErrHandler:
DaysInMonth = CVErr(xlErrValue)
Resume Continue
End Function



In article ,
"Marek" wrote:

Thanks - gives me a clue. How could I do this purely from code - I don't
have a cell reference for the date.