Use the Workbook Open event.....and try the below code

Private Sub Workbook_Open()
If Format(FileDateTime(Me.FullName), "mmyy") < _
Format(Date, "mmyy") Then MsgBox "first day of the month,please save"
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"puiuluipui" wrote:

Hi, i need a macro to display a message, first time i open workbook in new
month. If today is 01.11.2009, and i open my workbook, then, the macro to
display message "first day of the month,please save".
Sometime the first day of the month can be sunday, and i will open my
workbook, on the second day of the month, or another day. Can this macro be
made to display the message first time i open workbook in the new month?
Can this be done?
Thanks!