Multiselect Listbox to select multiple worksheets

**Alagu** · 12-20-2012, 11:08 PM

I have 20 sheets in my worbook. Each time I need to move sheets in between and I need to select multiple sheets to delete.
I have one ListBox and one command button in Userform. I have already populated active workbook sheet name into ListBox.

How select multiple sheets using this ListBox1. To select single sheet using this ListBox1. is working ok.

Is there any macro to select multiple sheets?

Regards
Alagu

**Trebor76** · 12-21-2012, 12:47 AM

Hi Alagu,

Welcome to the forum!!

To select multiple items from a listbox follw these four steps:

1. Open the Visual Basic Editor (Alt + F11) from the workbook where the form resides
2. Click on the relevant listbox
3. From the Properties panel scroll down to Multiselect and ensure the 1 - fmMultiSelectMulti option is selected
4. Assign the following code to the command button to delete the tabs (just change the list box reference to reflect the actual list box name on your form if need be):


    'Written by Trebor76
    'Visit my website www.excelguru.net.au

    Dim intListBoxItem As Integer
    
    With ListBox1 'Change this to reflect the name of the listbox on the userform.
        For intListBoxItem = 0 To .ListCount - 1
            If .Selected(intListBoxItem) = True Then
                Application.DisplayAlerts = False
                Sheets(CStr(.List(intListBoxItem))).Delete
                Application.DisplayAlerts = True
            End If
        Next intListBoxItem
    End With

Regards,

Robert

**Alagu** · 12-21-2012, 01:15 AM

Hai Robert,

Thanks for your Code. It works nicely. I have doubt tt, while selecting multiple sheets using ListBox, sheets names are not highlighted.
like when we press Ctrl+Select. Only last sheet selected. Is it normal?

Regards
Alagu

**Trebor76** · 12-21-2012, 01:28 AM

If the listbox option is set as per step 3 above, you just need to click each item for it to be selected.

If the issue persists attach the workbook (devoid of any sensitive data) and I'll have a look for you.

Robert