Menu bar question

[gabch]

Hi,

How can I add the txt obj into menu bar like attached file?

Thx


+-------------------------------------------------------------------+
|Filename: image002.gif |
|Download: http://www.excelforum.com/attachment.php?postid=4837 |
+-------------------------------------------------------------------+

 

[Bob Phillips]

With Application.CommandBars("Standard")
With .Controls.Add(Type:=msoControlEdit, temporary:=True)
.Caption = "myBox"
.OnAction = "myBoxMacro"
End With
End With

End Sub

Sub myBoxMacro()
With Application.CommandBars.ActionControl
MsgBox .Text
End With
End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)