Transfer selected items from listbox to sheets range and as sheets name

[eddmar1993]

Hello! I am just new to this site and new to VBA.
I have two listboxes (Months and Product Names). I set these to 1-fmMultiSelectMulti. What I wanted is that every time I click OK button new sheets will be added with names as in the listbox(Months) and the selected items from listbox(Product Names) will be transfer to "D1" of the new sheets. I want it to offset columns.

I am fine with listbox(Months). This is my code:

Private Sub cmdOK_Click()
    
        Dim sName As String
        Dim x As Integer
        Dim ws As Worksheet
    
        For x = 0 To lbMonths.ListCount - 1
            If lbMonths.Selected(x) = True Then
        
                sName = lbMonths.List(x)
                Set ws = Sheets.Add(After:=Sheets(Sheets.Count))
                ws.Name = sName
            
            Else: Exit Sub
        
            End If
        Next x
      
End Sub

My problem now is the second listbox(Product Names). I want the codes to be in the cmdOK.

Anyone can help me?

 

[Fluff]

Hi & welcome to MrExcel.
How about

Private Sub cmdOK_Click()
   Dim i As Long, j As Long
   Dim Ary As Variant
   Dim Ws As Worksheet
   
   With Me.[COLOR=#ff0000]ListBox2[/COLOR]
      ReDim Ary(1 To .ListCount)
      For i = 0 To .ListCount - 1
         If .Selected(i) Then
            j = j + 1
            Ary(j) = .List(i)
         End If
      Next i
   End With
   With Me.lbMonths     
      For i = 0 To .ListCount - 1
         If .Selected(i) Then
            Set Ws = Sheets.Add(, Sheets(Sheets.Count))
            Ws.Name = .List(i)
            Ws.Range("D1").Resize(, j).Value = Ary
         End If
      Next i
   End With
End Sub

Change value in red to match your product names listbox

 

[eddmar1993]

Hello Fluff. The code you sent works very well. Thank you very much.
Highly appreciated. ???

 

[Fluff]

You're welcome & thanks for the feedback