Sub AddMenuIcon()

With Application.CommandBars("Standard").Controls.Add( _
Type:=msoControlButton, _
ID:=2950, Befo=9)
.OnAction = "myMacro"
End With
End Sub


--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)


"Richard" wrote in message
...
Hello,

This is second time that I'm posting it.

Hope someone can help me with this.

I want to assign a macro( Userform1.show) to icon that I add in for
command
bar.

I use the below code to add smiley icon on command bar and I want to use
code to assign a macro.

Sub AddMenuIcon()

Application.CommandBars("Standard").Controls.Add
Type:=msoControlButton,
ID _
:=2950, Befo=9

???????? <<== Here I want to code to assign macro so that if user click
this amiley button, the userform can be poped up.

End Sub

Any help will be appreciated.

Thanks