I want to add Selected text into right click menu as a .caption
here is my code
PublicSub CreateMacro() Application.CommandBars("Text").Reset Dim MenuButton As CommandBarButton With CommandBars("Text") Set MenuButton =.Controls.Add(msoControlButton) With MenuButton .Caption = Selection.Text .Style = msoButtonCaption .OnAction ="Test_Macro" EndWith EndWith EndSub PublicSub Test_Macro() MsgBox "I work" ResetRightClick CreateMacro EndSub Sub ResetRightClick() Application.CommandBars("Text").Reset EndSub
on first attempt right click menu is displayed but empty caption, and on next times it show older caption (not current selection) until the menu item is clicked
or how to add Right clicked word into right clicked menu