add an item to shortcut

[lior03]

hello
how do i add an item to the shortcut that opens when i click the column header in excel.
thanks

[mdmackillop]

Sorry Moshe,
I don't understand the problem. Can you explain further?

[lior03]

hello
when i click on the header of a column A or C or G for instance a menu appears(the one that enables to set the width of a column).how can i add an item to this shortcut.
thanks

[Zack Barresse]

Something like this ...

Sub TestMenu()
Application.CommandBars("Column").Reset
With Application.CommandBars("Column").Controls
With .Add(msoControlButton, Before:=1)
.Caption = "Whatever Caption You Want Here"
.OnAction = ThisWorkbook.Name & "!YourRoutineNameHere"
.Tag = "Your Tag Here"
End With
End With
End Sub