Dim bEnable As Boolean
bEnable = False ' true to enable
ActiveSheet.OLEObjects("CommandButton1").Object.En abled = bEnable

Regards,
Peter T

"Dr. Schwartz" wrote in message
...
I have a command button that I want to enable and disable using code. I
have
tried this:

ActiveSheet.Shapes("PrintJour").Enabled = True

Without any luck. Can anyone guide me?

The Doctor