Runtime Error while dynamically adding controls to a userform

Question

On the line below, I'm getting the error "Object variable or with block, variable not set" (Error 91).

Set cmd = ActiveWorkbook.VBProject.VBComponents("UserForm1").Designer.Controls.Add("Forms.CommandButton.1", "cmdTst")

Where cmd is defined as

Dim cmd As MSForms.CommandButton

Answer 1

You appear to be attempting to execute your code inside the UserForm code module. However as @CDP1802 has pointed out, you'll need to execute the code inside of a standard module. If you wish to display your UserForm after your code adds the CommandButton, you must add it to the UserForms collection and call the Show function.