Deleting multiple sheets with VBA

[Mr2017]

Hi

I'm trying to delete 30 sheets from a spreadsheet with VBA.

The spreadsheet has about 50 sheets, but I only want to delete the ones with the word "auto" at the end of the sheet name.

I've written this and it has cleared the contents of those sheets.

But I want to delete them without prompts.

Can anyone advise how I need to change this please?

Sub DeleteSheets()


     Dim sht As Worksheet
    
    For Each sht In ThisWorkbook.Worksheets
    
        If Right(sht.Name, 4) = "auto" Then
            Application.DisplayAlerts = False
            sht.Cells.Delete
            Application.DisplayAlerts = True
          
        End If
    Next


Exit Sub




End Sub

 

[jmacleary]

Hi there. You were nearly there!

Try this:

Sub DeleteSheets()


     Dim sht As Worksheet
    
    For Each sht In ThisWorkbook.Worksheets
    
        If Right(sht.Name, 4) = "auto" Then
            Application.DisplayAlerts = False
            sht.Delete
            Application.DisplayAlerts = True
          
        End If
    Next

End Sub

PS You dont need the exit sub, as the very next line is the end of the sub anyway.

 

[Mr2017]

Ok, awesome!

That worked!

Thank you jmacleary!