お知恵を拝借させてください。
下のように右クリックメニューから選択範囲のセルを塗りつぶす、みたいなことがしたいのですが、
「引数は省略できません。」のエラーになります。
どうすれば引数（例：34）を渡せますでしょうか？

Sub addMenu()
　Dim CB
　Set CB = Application.CommandBars("Cell").Controls.Add()
　With CB
　　.Caption = "塗りつぶし"
　　.OnAction = "setColor(34)"
　End With
End Sub

Sub setColor(col As Long)
　With Selection.Interior
　　.ColorIndex = col
　End With
End Sub