Delete sheet if A2 cell is empty - VBA Help

[linister]

Hi,

I have a workbook with alot of sheets, i want all the sheets that have A2 empty to be deleted, can you please help me with a vba module.

Thanks alot in advance

 

[Fluff]

How about

Sub linister()
   Dim Ws As Worksheet
   
   Application.DisplayAlerts = False
   For Each Ws In Worksheets
      If Ws.Range("A2") = "" Then Ws.Delete
   Next Ws
   Application.DisplayAlerts = True
End Sub

 

[linister]

It works!!!! thanks Fluff!

 

[Fluff]

You're welcome & thanks for the feedback.

 

[linister]

Sorry wrong thread