Error In Expiry Date Formula

[madserv]

I am getting the following error in the Expiry date formula in workbook

Private Sub Workbook_Open()
Dim Edate As Date
Edate = Format("31/12/2012", "DD/MM/YYYY") ' Replace this with the date you want
If Date > Edate + 2 Then
MsgBox "This workbook is Expired and will now close !!!"
ActiveWorkbook.Close
End If
End Sub

i am using the above mension formula for expiry date.

it says
Compile error
Ambigous name detected : workbook_open

please help me to solve this. thanks

 

[James006]

Hello,

You cannot TWO times the same event : Private Sub Workbook_Open()

Basically, if you need both actions ... you need to merge all your instructions into a single Private Sub Workbook_Open()

Hope this will help

 

[madserv]

Thanks Alot for the help.
it works perfectly now

Hello,

You cannot TWO times the same event : Private Sub Workbook_Open()

Basically, if you need both actions ... you need to merge all your instructions into a single Private Sub Workbook_Open()

Hope this will help

 

[James006]

You are welcome