But Tom didn't suggest that.

He suggested something like:

Sub test()
Dim cmb As CommandBar
Dim cmbp As CommandBarPopup

Set cmb = Application.CommandBars("Standard")
Set cmbp = cmb.Controls.Add(Type:=msoControlPopup)

cmbp.Caption = "test"

With cmbp.Controls.Add
.BeginGroup = True
.Caption = "test"
.FaceId = 231
.OnAction = "MyCode"
End With
End Sub

Sub Mycode()
frmMyUserForm.Show
End sub



Maria wrote:

Hi Tom,

unfortunately it doesn't work.

You can try it:

Sub test()
Dim cmb As CommandBar
Dim cmbp As CommandBarPopup

Set cmb = Application.CommandBars("Standard")
Set cmbp = cmb.Controls.Add(Type:=msoControlPopup)

cmbp.Caption = "test"

With cmbp.Controls.Add
.BeginGroup = True
.Caption = "test"
.FaceId = 231
.OnAction = frmMyUserForm.Show
End With
End Sub

Maria

-----Original Message-----
..OnAction = "MyCode"


Sub Mycode()
frmMyUserForm.Show
End sub

--
Regards,
Tom Ogilvy


"Maria" wrote in
message
...
Hi,

I have created a userdefined CommandBar with a button.
From this button I would like to start a UserForm.

Usually I use something like the following Codeline to
call a Prozedu
.OnAction = MyCode

I wanted to do the same with the UserForm:
.OnAction = frmMyUserForm

Unfortunately it doesn't work.
Is it possible to allocate a UserForm?

Thank you,
Maria





.


--

Dave Peterson