How to populate more than one multiselect listbox onto specified

Hi,

I have created a userform which has 4 categories and a range multiselect listboxes under each category. Users will select as many of the options in each of these listboxes as needed.

I've determined the coding which takes all the selections made from listbox 1 and populates them into cell F2, with each selection separated by a comma.

The problem I'm having is when I repeat the coding for Listbox2 to populate in cell F3, it includes the items that were ticked in listbox1 and listbox2. Likewise if I use this coding for listbox3, all selected items from listbox1, 2 and 3 appear in the cell.

Here is the coding for listboxes 1 and 2:

Private Sub CommandButton1_Click()
Dim i As Long, txt As String, Flg As Boolean

With Me.ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
Flg = True
txt = txt & "," & .List(i)
End If
Next
End With
If Flg Then
With Sheets("Sheet2")
.Range("F2").Value = Mid$(txt, 2)
End With

End If

With Me.ListBox2
For i = 0 To .ListCount - 1
If .Selected(i) Then
Flg = True
txt = txt & "," & .List(i)
End If
Next
End With
If Flg Then
With Sheets("Sheet2")
.Range("F3").Value = Mid$(txt, 2)
End With

End If

End Sub


Could you tell me what I need to include so that the selected items of each listbox are restricted to the specified cell?

Thank you for your help

Raani