Delete multiple sheets by their name

[PankajMaheshwari]

Hi Experts,

I have a workbook which has multiple sheets (around 150 sheets). I also have a list of names of all those sheets. Now what I want to do is delete few sheets (may not be in sequence).

Can I delete sheets by their name? VBA code would be in a way that when I execute it, it asks me a range with sheets name to select. Once I select the range with sheets name, those sheets are deleted.

I tried searching this everywhere but no help. I hope this is even doable.

Thanks for any help.

 

[mumps]

This macro will prompt you to select the desired range and then it will delete the selected sheets.

Sub deleteSheets()
    Application.DisplayAlerts = False
    Dim wsRng As Range, rng As Range
    Set wsRng = Application.InputBox(prompt:="Select Range", Type:=8)
    For Each rng In wsRng
        Sheets(rng.Value).Delete
    Next rng
    Application.DisplayAlerts = True
End Sub