Multi-select listbox output.

Try:

Dim lItem As Long
Dim varString As String

    For lItem = 0 To listbox1.ListCount - 1
        If listbox1.Selected(lItem) = True Then
            If varString = "" Then
                varString = listbox1.List(lItem)
            Else
                varString = varString & vbNewLine & listbox1.List(lItem)
            End If
            listbox1.Selected(lItem) = False
        End If
    Next

MsgBox varString

For a variable size rowsource use:

=OFFSET(Sheet1!$A$2,0,0,COUNTA(Sheet1!$A$2:$A$14996),1)

If you must use a named range it's =INDIRECT("Pets") and use COUNTA in the named range.

Dion

Mojo,

I appreciate your help , especially considering the file I uploaded to the original post was the wrong one and had nothing to do with my question. (The correct one is attached now.)

Here is how it should work:

a) Click the button.
b) Select multiple pets.
c) Use those pets in a concatenate-type sentence (see Sheet 1, cell F18.)

a) and b) work great. I copied your code, but I messed something up so the output isn't right. I did something wrong somewhere, just not sure where.

I appreciate whatever you can do to move this along. Thanks!

Lost

Let's try again then. I assume you mean you want the output to look like H18 (not F18).

Private Sub cmdOkay_Click()
Dim i As Long, msg As String, Check As String

msg = "The pets selected are: "

'Generate a list of the selected items
With ListBox1
    For i = 0 To .ListCount - 1
        If .Selected(i) Then
            msg = msg & .List(i) & ", "
        End If
    Next i
End With

If msg <> "The pets selected are: " Then
    msg = Left$(msg, Len(msg) - 2) & "."
End If

If msg = "The pets selected are: " Then
    'If nothing was selected, tell user and let them try again
    MsgBox "Nothing was selected!  Please make a selection!"
    Exit Sub
Else
    'Ask the user if they are happy with their selection(s)
    Check = MsgBox(msg & vbNewLine & _
        vbNewLine & "Are you happy with your selections?", _
        vbYesNo + vbInformation, "Please confirm")
End If

If Check = vbYes Then
    'Unload the userform since user is happy with selection(s)
    Sheets("Sheet1").Range("H19").Value = msg
    Unload Me
Else
    'User wants to try again, so clear listbox selections and
    'return user to the userform
    For i = 0 To ListBox1.ListCount - 1
        ListBox1.Selected(i) = False
    Next
End If
     
End Sub