Visual basic message box error

Hi, I have a macro run when a workbook opens.

I have just moved it to perform automatic run when the book opens but I get a "complie error" highlighting the me.visible part of the code.

Anyone with any idea's why the code isn't working?

Incidentally, r1 is the current date, and s1 is a preset date - so I need the message box to alert once the current date (r1) has passed teh set date (s1)

Private Sub Workbook_Open()

1 If [r1] > [s1] Then
2 x = MsgBox("Please upgrade", vbOKCancel, "TRIAL EXPIRED")
3 If x = vbCancel Then
ActiveSheet.Unprotect
Cells.Select
    Range("G3").Activate
    Selection.ClearContents
    Selection.Delete Shift:=xlUp
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True
End If
4  Dim Reply As String
On Error GoTo Reset
Application.EnableEvents = False
Me.Visible = xlSheetVeryHidden
Reply = InputBox("Please enter the password.")
If Reply = "********" Then
Me.Visible = xlSheetVisible
Sheets("Main").Select
 Else
  Me.Visible = xlSheetVeryHidden
   Me.Select
End If
Reset:
Application.EnableEvents = True




End If
5 End Sub

Since you moved it out of some module into "This Workbook" and set it to run when opened, it no longer knows what the ME part of me.visible is. You have to change that back to the name of whatever you're trying to make visible. For example, if you have a form that should pop up and that form is called "UserForm1" then replace me.visible with UserForm1.visible.

^ Almost agree with above except I'd say the insinuation from the hidden values (xlsheetveryhidden) is that the macro was created in a sheet's code and moved (gracelessly?) into the workbook open event. I think replacing all instances of

me.

with

worksheets("Name").

would do it.

CC

Thanks guys, will give it a bash