Ber,
Borrowing liberally from John Walkenbach's web site...
http://j-walk.com/ss/excel/tips/tip76.htm
'------------------
Sub MakeOne()
Dim frmNew As Object
Set frmNew = ThisWorkbook.VBProject.VBComponents.Add(3)
frmNew.Properties("Caption") = " Test Form"
VBA.UserForms.Add(frmNew.Name).Show
ThisWorkbook.VBProject.VBComponents.Remove VBComponent:=frmNew
Set frmNew = Nothing
End Sub
'--------------------------
Jim Cone
San Francisco, USA



"Ber"
wrote in message

An Excel worksheet contains a list of names.
When the user selects one of these names, a userform pops up. This Userform
has the same name as the name that is selected in the worksheet.
What I want to achieve is that whenever a name is selected for which there
does not excist a UserForm yet, this form will be created programmatically.
My question is: How can I generate and name a userform in Excel and furnish
it with a textbox..
I have tried Google Groups to no avail.
A search of the Microsoft Knowledge Base came up with the answer, all the
details and sample routines but ..... for Word2000 only - see
http://tinyurl.com/79tn2 .
Your help will be appreciated
Ber