EoMonth function not working help

[raja15feb]

Hi Everyone,

I have used the EoMonth function in macro and its not working. I have referenced the Analysis Tool - VBA through File---->options --->Addins. Below is the macro i have written. I am Beginner in writing macros.

Sub done()
Dim Dat As Date, x As Integer, y As Date
Dat = Format(Now(), "mmm - dd - yyyy")
x = Month(Dat)
y = EoMonth("dat", x)
MsgBox Dat
MsgBox x
Msgbox y
End Sub

When i run the above script i am getting the error message as "Compile Error: Sub or Function not Defined"

[Kaper]

1) use code tags (edit your post to comply with forum rules.
2) Try

Please Login or Register  to view this content.

or rather

Please Login or Register  to view this content.

as you want to pass value of dat variable not text string "dat" :

[raja15feb]

Thanks for helping me