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.