Dim rng As Range
Dim cell As Range
Dim str

Set rng = Application.InputBox("Use mo=use to select cells", Type:=8)
For Each cell In rng
str = str & cell.Value & " "
Next cell
TextBox1.Text = str


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"JJ" wrote in message
...
I want to create a userform that can string a selected range of cells to a
textbox. I can do it on predifend cells, but I want it to be flexible so
that you can highlight the cells and then click a button that will string
it.
Can anybody help me with a link to a page that explain how to string from
highlighted cells?