Brad,
Both versions worked ok in 2003 for me. I cant immediately think what you
may be doing that would cause your problem & I am about to leave the office.
Hopefully, someone else in the community reading this may be able to offer
further guidance.

--
JB


"Brad" wrote:

John,

Sub testclear()
Application.CommandBars(1).Controls("Edit").Contro ls("Clear").Enabled =
False
End Sub

Is still giving me the same error message as before - any other suggestions.
I appreciate the input.


"john" wrote:

should have said I use 2003.

try this:
Application.CommandBars(1).Controls("Edit").Contro ls("Clear").Enabled = False
--
JB


"Brad" wrote:

With the upper case E
I'm getting a run-time error 5

Invalid procedure call or agrument.

"john" wrote:

change "e" on edit to uppercase "E" - this worked ok for me.

Sub testclear()
Application.CommandBars("Edit").Controls("Clear"). Enabled = False
End Sub

--
JB


"Brad" wrote:

I have tried several versions of the following code and have been
unsuccessful on disabling the "clear all" feature in version 2003 and 2007.
Any suggestions?

Sub testclear()
Application.CommandBars("edit").Controls("Clear"). Enabled = False
End Sub