I believe your method only works for E2007, for earlier

MsgBox Format([atpvbaen.xls].EoMonth(Now, 5), "DD/MM/YYYY")

Mike

"Richard Schollar" wrote:

Hello Mike

What seems to be the problem?

Richard



"Mike H" wrote in message
...
tested?

"Richard Schollar" wrote:

Hi

Within the VBE go ToolsReferences and set a reference to atpvbaen.xls
(the
Analysis Toolpak) and then you can use the functions it contains within
your
code eg:

MsgBox Eomonth(Date,5)

Richard



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