E-M,

Here is a simple function to do it.

Function zEOMONTH(this As Date, Months As Long)
zEOMONTH = DateSerial(Year(this), Month(this) + Months + 1, 0)
End Function


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"ExcelMonkey " wrote in message
...
Is there a funciton in VBA that is similar to the eomonth function in
excel?

Thanks


---
Message posted from http://www.ExcelForum.com/