Okay, so use

Private Sub Userform_Activate()

With Me.ComboBox1
.AddItem "Text1"
.AddItem "Text2"
'.. etc

.ControlSource = Range("D4").Address(external:=True)

End With

End Sub



--

HTH

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


"James Montgomery" wrote in message
...
Hi Bob

The sourse lines of text are not from a row but just lines of text I have
created for the CombeBox. But anyway not sure how to link all this and
make
it work
Thanks

"Bob Phillips" wrote in message
...
Link the RowSource (if a form) property of the combobox to the range of
data
on the worksheet, and set the Controlsource property to D4 to get the
value
stored there.

--

HTH

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


"James Montgomery" wrote in message
...
Hi,

Can someone help me with populating a ComboBox with say
Text Line 1
Text Line 2
Text Line 3
Than after the user chooses one say 'Text Line 2' have it show his
pick
in
the Combobox. User would than have to click an 'OK' button to dislplay
it
in
say in ("D4"). I would want the ability to able to add more 'Text
Lines'
to
the code myself.

If this is asking to much could someone direct me to a site that might
have
such a routine or to someone I could pay for his or her services.
Thanks,
James