[DarleneMiles]

I would like a macro to run through an entire spreadsheet and delete any tabs that have the text "GetRidOfMe" in cell IV65536. I thought it would look like the code below, but nothing happens. Help, please? (As you can see, I've commented out things I thought may have affected the macro, but they didn't. I would like to not have a prompt each time a sheet is being deleted.). Thank you so much!

Code:

Sub GetRidOfMe()
        
    Dim sh As Worksheet
 
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With
 
    For Each sh In ThisWorkbook.Worksheets
        If sh.Range("IV65536").Value = "GetRidOfMe" Then
'        Application.DisplayAlerts = False
        sh.Select

        sh.Delete
'        Application.DisplayAlerts = False
'        ActiveWindow.SelectedSheets.Delete
'        Application.DisplayAlerts = True
        End If
    Next sh

End Sub

[Yeroon]

Hi I tried it like this. First Macro to fill the sheet with the getridofme string. Second is you macro to delete any sheets with that string. If I just uncomment the displayalerts it gets deleted silently. So it should work.

Code:

Sub Macro2()
    For Each sh In ThisWorkbook.Worksheets
        sh.Range("IV65536").Value = "GetRidOfMe"
    Next sh
End Sub

You Macro

Code:

Sub Macro1()
'
' Macro1 Macro
' De macro is opgenomen op 19-2-2009 door Jeroen Penninx.
'

    Dim sh As Worksheet
 
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With
 
    For Each sh In ThisWorkbook.Worksheets
        If sh.Range("IV65536").Value = "GetRidOfMe" Then
        Application.DisplayAlerts = False
        sh.Select

        sh.Delete
'        Application.DisplayAlerts = False
'        ActiveWindow.SelectedSheets.Delete
'        Application.DisplayAlerts = True
        End If
    Next sh

End Sub

Are the sheets protected by any means maybe?

What happens if you add a MsgBox after the line For Each sh In ThisWorkbook.Worksheets

Code:

For Each sh In ThisWorkbook.Worksheets
   MsgBox "Got a worksheet to work with"

Get a MsgBox?