Try

Sub Enabled_False()
Dim Ctl As CommandBarControl

On Error Resume Next
For Each Ctl In Application.CommandBars.FindControl(ID:=30006).Con trols
Ctl.Enabled = False
Next Ctl
Application.CommandBars.FindControl(ID:=30026).Ena bled = True
On Error GoTo 0
End Sub


Sub Enabled_True()
Dim Ctl As CommandBarControl

On Error Resume Next
For Each Ctl In Application.CommandBars.FindControl(ID:=30006).Con trols
Ctl.Enabled = True
Next Ctl
On Error GoTo 0
End Sub




--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"vicky" wrote in message ...
thanks a lot . i just need to de - activate the sheet option in format
menu bar . this line de-activates whole format menu bar
Application.CommandBars.FindControl(ID:=30026).Ena bled = True