8 lines
204 B
Text
8 lines
204 B
Text
Option Explicit
|
|
|
|
Sub InsertForm()
|
|
Dim myForm As Object, strname As String
|
|
Set myForm = ThisWorkbook.VBProject.VBComponents.Add(3)
|
|
strname = myForm.Name
|
|
VBA.UserForms.Add(strname).Show
|
|
End Sub
|