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)

"gabch" wrote in
message ...

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 |
+-------------------------------------------------------------------+

--
gabch
------------------------------------------------------------------------
gabch's Profile:
http://www.excelforum.com/member.php...o&userid=30662
View this thread: http://www.excelforum.com/showthread...hreadid=547726