Keep it as myMacro.

And have the myMacro code show that user form:

Option Explicit
sub myMacro()
userform1.show
end sub

And make sure you put Bob's code under the ThisWorkbook module--not in a General
module.




"P. Dileepan" wrote:

Thanks for the code. But I am miussing something.
Please bear with me. I am a novice with VBA.

I copies the code as a Sub in a module. In place
of "MyMacro" for .action, I put the user form name. When
I open the workbook I do not see any command button. I
am missing something I am sure. Please help!

Thank you,

-- Dileepan

-----Original Message-----
Sorry, that should have been

Private Sub Workbook_BeforeClose(Cancel As Boolean)

On Error Resume Next
Application.CommandBars("Formatting").Controls
("myButton").Delete
On Error GoTo 0

End Sub

Private Sub Workbook_Open()
Dim oCB As CommandBar

On Error Resume Next
Application.CommandBars("Formatting").Controls("my
Button").Delete
On Error GoTo 0

Set oCB = Application.CommandBars("Formatting")

With oCB
With .Controls.Add(Type:=msoControlButton,
temporary:=True)
.BeginGroup = True
.Caption = "my Button"
.FaceId = 23
.Style = msoButtonIconAndCaption
.OnAction = "myMacro"
End With
End With


End Sub

--

Dave Peterson