HELP! Lost commandbar...

[poolio]

I've just been 'experimenting' with enabling / disabling and hiding / unhiding the various right-click options using this sort of thing...

Sub UnHide_RightClick()
    Application.CommandBars("Cell").Controls("Cut").Visible = True
    Application.CommandBars("Cell").Controls("Copy").Visible = True
    Application.CommandBars("Cell").Controls("Paste").Visible = True
    Application.CommandBars("Cell").Controls("Paste Special...").Visible = True
    Application.CommandBars("Cell").Controls("Insert...").Visible = True
    Application.CommandBars("Cell").Controls("Delete...").Visible = True
    Application.CommandBars("Cell").Controls("Clear Contents").Visible = True
    Application.CommandBars("Cell").Controls("Insert Comment").Visible = True
    Application.CommandBars("Cell").Controls("Format Cells...").Visible = True
    Application.CommandBars("Cell").Controls("Pick From Drop-down List...").Visible = True
    Application.CommandBars("Cell").Controls("Add Watch").Visible = True
    Application.CommandBars("Cell").Controls("Create List...").Visible = True
    Application.CommandBars("Cell").Controls("Hyperlink...").Visible = True
    Application.CommandBars("Cell").Controls("Look Up...").Visible = True
End Sub
 
Sub ReEnable_RightClick()
    Application.CommandBars("Cell").Controls("Copy").Enabled = True
    Application.CommandBars("Cell").Controls("Paste").Enabled = True
    Application.CommandBars("Cell").Controls("Cut").Enabled = True
    Application.CommandBars("Cell").Controls("Paste Special...").Enabled = True
    Application.CommandBars("Cell").Controls("Clear Contents").Enabled = True
    Application.CommandBars("Cell").Controls("Insert Comment").Enabled = True
    Application.CommandBars("Cell").Controls("Format Cells...").Enabled = True
    Application.CommandBars("Cell").Controls("Pick From Drop-down List...").Enabled = True
    Application.CommandBars("Cell").Controls("Add Watch").Enabled = True
    Application.CommandBars("Cell").Controls("Create List...").Enabled = True
    Application.CommandBars("Cell").Controls("Hyperlink...").Enabled = True
    Application.CommandBars("Cell").Controls("Look Up...").Enabled = True
End Sub

Not sure what I've done but I appear to have lost them all!! and I can't get them back?!
I've tried:

Sub Reset_RightClick()
       Application.CommandBars("Cell").Reset
End Sub

But to no avail...
Can anyone advise on how I remedy my situation?!

 

[poolio]

#BLUSH#

Application.CommandBars("Cell").enabled = true