VBA deleting a worksheet based on a cell

[Toya Mack]

Hello,

I am trying to create a VBA to delete a worksheet based on a cell. I know the VBA to delete an active worksheet, but in this case I am working with a template that contains 34 worksheets and based on contracts I may not need them all "every time". So I would like to create a VBA that after I have put the information in the workbook and did not enter information in a cell on a worksheet to run the VBA to delete that worksheet.....is this possible?

 

[vaskov17]

all sheets with A1 empty will be deleted, change the range to whatever you need

Sub delSheets()
    Dim wks As Worksheet
    
    Application.DisplayAlerts = False
    For Each wks In ActiveWorkbook.Worksheets
        If wks.Range("A1") = "" Then
            wks.Delete
        End If
    Next
    Application.DisplayAlerts = True
End Sub