Multiple FindControls ID's

[lsab]

I'm trying to create a macro to remove multiple items from the right click menu within a sheet.

Thus far I have:

Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=855)
Ctrl.Enabled = False

How can I in-cooperate multiple menu items to be disabled? i.e. 855, 478, 1576

 

[Ron de Bruin]

You can use a array

Sub MenuControl_False1()
' Excel 2000 - 2003
Dim ctrl As Office.CommandBarControl
Dim IDnum As Variant
Dim N As Integer

IDnum = Array("19", "21")
For N = LBound(IDnum) To UBound(IDnum)

For Each ctrl In Application.CommandBars.FindControls(ID:=IDnum(N))
ctrl.Enabled = False
Next ctrl

Next N
End Sub

Sub MenuControl_True1()
' Excel 2000 - 2003
Dim ctrl As Office.CommandBarControl
Dim IDnum As Variant
Dim N As Integer

IDnum = Array("19", "21")
For N = LBound(IDnum) To UBound(IDnum)

For Each ctrl In Application.CommandBars.FindControls(ID:=IDnum(N))
ctrl.Enabled = True
Next ctrl

Next N
End Sub

 

[lsab]

That's perfect, thanks very much