With CommandBars("Insert").Controls.Add(Type:=msoControlPopup)
            .caption = "My menu"
            With .Controls
                With .Add(msoControlButton, , True)
                    .caption = "Current Position"
                    .Style = msoButtonCaption
                    .TooltipText = "Insert FDN to the current position"
                    .onAction = DMCurrentPos
                End With
            End With
        End With