I presume that you mean

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
UserForm1.TextBox1.Text = ActiveCell.Value
End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)


wrote in message
...
When i doubleclick on the textbox1 i can past the code
like this:

Private Sub TextBox1_Change()
UserForm1.TextBox1.Text = ActiveCell.Value
End Sub

Is this the right procedure


But it is not possible to fill the textbox with text.
-----Original Message-----
Do you mean something like?

Userform1.Textbox1.Text = ACtivecell.Value

--

HTH

RP
(remove nothere from the email address if mailing direct)


"RUUD VAN DEURSEN"
wrote in message
...
I have a Userform1

In a worksheet, when i select a number of cells (any
cells) what is the code to put in text in these cells
with use of the textbox on the userform.

thank you


.