Date error message (VBA)

[bruty]

I created a spreadsheet using Office 2003 on an XP machine that on open looks at todays date and checks it against a shelflife date using this code:

TodaysDate = Date

When a colleague using Excel 2000 on a Windows NT (or 2000, not 100% sure at the moment) tries to open up the spreadsheet they get an error saying:

Compile Error:
Can't find project or library

and it highlights the word Date (the one after the equals sign). I thought this was a standard VBA keyword, so I don't understand why this is causing a problem. Can anyone shed some light for me??

 

[bruty]

Would using TodaysDate = Now be any better than using TodaysDate = Date?

 

[jindon]

You must have sub routine called Sub EnableControl...

 

[bruty]

Like this?

Sub EnableControl(Id As Integer, Enabled As Boolean)
'Disables control for cut, copy & paste in command bars
Dim CB As CommandBar
Dim C As CommandBarControl
On Error Resume Next
For Each CB In Application.CommandBars
Set C = CB.FindControl(Id:=Id, recursive:=True)
If Not C Is Nothing Then C.Enabled = Enabled
Next
End Sub

 

[jindon]

Ok
Now do you have a sub routine called "Error" for

Application.OnKey "^c", "Error"

?

 

[bruty]

Yep:

Sub Error()
'Error message for disabled events (cut, copy & paste)
MsgBox "This option has been disabled"
End Sub

 

[Norie]

Bruty

I would suggest you don't call the sub Error as Error is a reserved word.

 

[bruty]

OK. Cheers.