Try testing your date this way...

If YourDate = DateSerial(Year(YourDate), Month(YourDate) + 1, 0) Then
' YourDate is the last day of the month
End If

Rick

"Arne Hegefors" wrote in message
...
Hi! I have a macro that loops through a series of dates and perfoms
calculations for these dates. I skip saturdays and sundays. However if the
last day of any month is saturday or sunday then i want to perform a
calculation. How can I check if a date is the last day of a month? Thanks!