UserForm showing list of all sheets, ability to delete sheets

[noslenwerd]

Hello,

I am hoping to find a way to create a userform, that lists all sheets within a workbook, and somehow gives the user the opportunity to select which sheets they would like to delete from that list.

Is this possible?

 

[My Aswer Is This]

Create a listbox on the userform:
Place the below code in the Userform.

Private Sub UserForm_Initialize()
'Modified  3/3/2021  1:20:52 AM  EDT
ListBox1.Clear
Dim i As Long
For i = 1 To Sheets.Count
    ListBox1.AddItem Sheets(i).Name
Next
End Sub

Place this script in the listbox:
Script runs when you click on a sheet name in the listbox:

Private Sub ListBox1_Click()
'Modified  3/3/2021  1:24:21 AM  EDT
Sheets(ListBox1.Value).Delete
ListBox1.Clear
Dim i As Long
For i = 1 To Sheets.Count
ListBox1.AddItem Sheets(i).Name
Next
End Sub

 

[diddi]

@MY answer is this; just a bit concerned that the user could accidently click an item and the sheet is gone. might be safer to choose then click a commandbutton? or right click for context menu.. just something a bit more deliberate in nature from the user

 

[noslenwerd]

Thank you both for the reply.

@diddi can you give me direction on how that might be done with a userform? I am pretty new to using userforms. Thanks!

 

[diddi]

just draw a commandbutton on your userform with a caption like "Delete sheet". when the use clicks the commandbutton, the code runs.
so in the code you only need to change 1 line

'Private Sub ListBox1_Click()  ' old line
Private Sub CommandButton1_Click() ' replace with this.  the commandbutton number has to match your commandbutton
    'Modified  3/3/2021  1:24:21 AM  EDT
    Sheets(ListBox1.Value).Delete
    ListBox1.Clear
    Dim i As Long
    For i = 1 To Sheets.Count
        ListBox1.AddItem Sheets(i).Name
    Next i
End Sub