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