Posts by Reafidy

**Reafidy** · Dec 7th 2006

I would like to be able to array (group) all the sheets in my workbook that are listed in a Multi Select ListBox on a userform.

To be exact I would like to select the required sheets I want from listbox 1, add them too listbox 2, then array (group) all the sheets in listbox2. The code to add items from list 1 to 2 is below, but I am unsure of the code to then group the sheets in list 2 can anybody help?

Code

Private Sub CommandButton2_Click()
Dim iloop As Integer


For iloop = 1 To ListBox1.ListCount
 If ListBox1.Selected(iloop - 1) = True Then
    ListBox2.AddItem iloop
   
End If
Next


End Sub

Display More