Dim sh As Worksheet
    For Each sh In ThisWorkbook.Worksheets
      If Application.WorksheetFunction.CountA(sh.Cells) = 0 Then
        Application.DisplayAlerts = False
        sh.Delete
        Application.DisplayAlerts = True
      End If
    Next

Sub DeleteBlankSheets()
    Dim sh As Variant

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
On Error GoTo Exits:

    For Each sh In Sheets
        If Not IsChart(sh) Then
            If Application.WorksheetFunction.CountA(sh.Cells) = 0 Then sh.Delete
        End If
    Next sh

Exits:
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub
 
Public Function IsChart(sh) As Boolean
    Dim tmpChart As Chart
    On Error Resume Next
    Set tmpChart = Charts(sh.Name)
    IsChart = IIf(tmpChart Is Nothing, False, True)
End Function