add to shortcut menu

[Spencer Hutton]

i am trying to make a custom shortcut menu for when any cell in the
activesheet is clicked, but i am not entirely sure how to do this.

this is what i have so far to change the font:

Sub FormatFontShow()
Application.Dialogs(xlDialogFormatFont).Show
End Sub

but i don't know how to make a new shortcut menu with this item when you
right click on any cell. TIA.

 

[Frank Kabel]

Hi
as starting point some code:
Sub Add_Item()
Dim New_Entry As Object
Set New_Entry = CommandBars("Cell").Controls.Add(Temporary:=True)
On Error Resume Next
New_Entry.Controls("My message").Delete
On Error Goto 0

With New_Entry
.Caption = "My message"
.OnAction = "Message"
End With
End Sub


Sub Message()
MsgBox "Now you code yould start"
End Sub

Sub Delete_Item()
Dim myControl As CommandBarButton
For Each myControl In CommandBars("Cell").Controls
If myControl.Caption = "My message" Then
myControl.Delete
End If
Next
End Sub

 

[Spencer Hutton]

my mistake, i meant when a cell is Right Clicked.

Hi
as starting point some code:
Sub Add_Item()
Dim New_Entry As Object
Set New_Entry = CommandBars("Cell").Controls.Add(Temporary:=True)
On Error Resume Next
New_Entry.Controls("My message").Delete
On Error Goto 0

With New_Entry
.Caption = "My message"
.OnAction = "Message"
End With
End Sub


Sub Message()
MsgBox "Now you code yould start"
End Sub

Sub Delete_Item()
Dim myControl As CommandBarButton
For Each myControl In CommandBars("Cell").Controls
If myControl.Caption = "My message" Then
myControl.Delete
End If
Next
End Sub

 

[Frank Kabel]

Hi
this is just what the code is for