Maybe

mydate = "1/1/2008"
lastday = Format(DateAdd("m", 1, mydate) - Day(mydate), "dd/mm/yyyy")

Mike

"Office_Novice" wrote:

Can this worksheet function be replicated in VBA? I would like to get the end
of any given month, Any Thoughts?