Delete worksheets with blank cell

[oam]

I have a file with multiple worksheet and I need a code that will delete only worksheet that cell C2 is blank/empty. In addition, the code will not delete constant worksheets named "Master", "Table of Contents", "Lookup", "Lookup Names", or "Names"

Thank you for any and all help

[Paul_Hossler]

Not tested, but probably something like this

Option Explicit


'I have a file with multiple worksheet and I need a code that will delete only worksheets
'that have cell C2 is blank/empty. In addition, the code will not delete constant worksheets
'named "Master", "Table of Contents", "Lookup", "Lookup Names", or "Names"




Sub DeleteSomeWorksheets()
    Dim ws As Worksheet
    
    For Each ws In ActiveWorkbook.Worksheets
        Select Case ws.Name
            Case "Master", "Table of Contents", "Lookup", "Lookup Names", "Names"
            Case Else
                If Len(ws.Range("C2").Value) = 0 Then
                    Application.DisplayAlerts = False
                    ws.Delete
                    Application.DisplayAlerts = True
                End If
        End Select
                    
    Next
End Sub

[oam]

Works Perfect,

Thank you so much!