I want to add Selected text into right click menu as a .caption
here is my code
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