How to delete worksheet with specific criteria
 

Hi expert,

I am looking for a VBA code with following purpose:

Delete worksheets with column grand of pivot table (pivot table name
unknown) = 0 AND worksheet name contain "@"?

How to delete worksheet with specific criteria
 

What if I want to delete worksheet with worksheet name "@" AND contain no
number in column A (but will have text)? I use following code but doesn't
work.

Sub DeleteBlankSheet()
For Each ws In ThisWorkbook.Worksheets
If (InStr(ws.Name, "@") 0 And IsNumeric(ws.Range("A:A")) = False)
Then
Application.DisplayAlerts = False
ws.Delete
Else
Cells.EntireColumn.AutoFit
Application.DisplayAlerts = True
End If
Next ws
End Sub

"Angus" wrote:

Hi expert,

I am looking for a VBA code with following purpose:

Delete worksheets with column grand of pivot table (pivot table name
unknown) = 0 AND worksheet name contain "@"?