Use this then

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.Visible = False
On Error GoTo 0
Next Ctl

'Now set Enabled to True for the controls you want
IDnum = Array("22", "19")
For N = LBound(IDnum) To UBound(IDnum)
On Error Resume Next
Application.CommandBars("Cell").FindControl(ID:=ID num(N), _
Recursive:=True).Visible = True
On Error GoTo 0
Next N
End Sub

Sub All_Cell_Menu_Controls_Visible _True()
'Set Enabled to True for all the controls in the Cell menu
Dim Ctl As CommandBarControl
For Each Ctl In CommandBars("Cell").Controls
On Error Resume Next
Ctl.Visible = True
On Error GoTo 0
Next Ctl
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Steven" wrote in message ...
Ron,

This is really nice. I also included a Ctl.Visible = False which caused no
items to appear in the menu. What do I do so I see only the Copy and Paste
commands in the menu.

Thank you,

Steven