Dynamic userform multipage command buttons

[cutelittleguy]

I created a userform that automatically adds pages and labels and textboxes and command buttons in a multipage. I now when click on any of the comman buttons on a page, it does nothing. I am novice in van macros and need help...

 

[Domenic]

For a control that has been added at runtime to respond to events, one has to declare the variable with the keyword WithEvents. Here's an example...

[COLOR=darkblue]Dim[/COLOR] [COLOR=darkblue]WithEvents[/COLOR] NewButton [COLOR=darkblue]As[/COLOR] MSForms.CommandButton

[COLOR=darkblue]Private[/COLOR] [COLOR=darkblue]Sub[/COLOR] UserForm_Initialize()

[COLOR=green]'   Add new button[/COLOR]
    [COLOR=darkblue]Set[/COLOR] NewButton = UserForm1.Controls.Add("Forms.CommandButton.1")
    [COLOR=darkblue]With[/COLOR] NewButton
        .Caption = "MyButton"
        [COLOR=green]'etc.[/COLOR]
        '
        [COLOR=green]'[/COLOR]
    [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]With[/COLOR]

[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]

[COLOR=darkblue]Private[/COLOR] [COLOR=darkblue]Sub[/COLOR] NewButton_Click()
    [COLOR=green]'etc.[/COLOR]
    '
    [COLOR=green]'[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]

Does this help?