In the immediate window type

Application.Commandbars("Worksheet Menu Bar").Enabled = True

and then you can do ToolsCustomizeToolbars to get the rest back

--

HTH

RP
(remove nothere from the email address if mailing direct)


"nrussell" wrote in
message ...

Okay,

This may sound like a dumb question but how do I restore the command
bars in Excel. I've managed to delete them all while playing about with
the following code.

Each time I open Excel there is no longer any menus.
I'm in a right panic at this time

Sub Change_Cell_Menu()
Dim IDnum As Variant
Dim N As Integer
Dim Ctl As CommandBarControl

'Set Enabled to False for all the controls
For Each Ctl In CommandBars("Cell").controls
On Error Resume Next
Ctl.Enabled = False
On Error GoTo 0
Next Ctl
Sub Disable_Command_Bars_1()
'This will disable all BuiltIn Command bars
Dim Cbar As CommandBar
For Each Cbar In Application.CommandBars
If Cbar.BuiltIn = True Then
Cbar.Enabled = False
End If
Next
End Sub

Any help is urgently needed.

-Joe


--
nrussell
------------------------------------------------------------------------
nrussell's Profile:
http://www.excelforum.com/member.php...o&userid=23731
View this thread: http://www.excelforum.com/showthread...hreadid=374054