Display Listbox values

Hi,

I'm sure this is a simply one, but I was wondering if anybody could tell me the best way to display the value of three seperate listboxes as a string of text in a seperate cell.

So for example:

Listbox1 = London
Listbox2 = House
Listbox3 = SE7

So in cell A1 its says

"London House SE7"

Many thanks in advance

Macro1

What kind of listboxes and where are they located?

See attached for basic example using listboxes from Forms and Active-X controls.

A Forms Listbox returns an index value to a linked cell, so you will need to do a look up in order to join the text strings.

Basic code for Forms list box (assigned to a button). Linked cells are on row1, look up cells are on row2 and the code writes the string to cell A10.

Sub Create_Text()

    Range("A10").Value = Range("A2").Text & " " & Range("B2").Text & " " & Range("C2").Text

End Sub

With an Active-X listbox you can directly join the value in the control.

Private Sub CommandButton1_Click()

    With Me
        
        Sheet1.Range("A10").Value = .ListBox1.Value & " " & .ListBox2.Value & " " & .ListBox3.Value
        .Hide
    
    End With

End Sub

Glad you got the solution you needed.
Please mark this thread as [SOLVED] by going to YOUR first post and clicking on Thread Tools, then Go Advanced and choose the solved prefix.