Tabellenblätter löschen, wenn Zelle leer

Sub Quittungen_anlegen()
Dim quittMuster As Range, zz As Long, ss As Long
Set quittMuster = Sheets("Quittung_Muster").Columns("A:C")
With Sheets("Bestellblatt")
For zz = (10) To (84)
For ss = 1 To Sheets.Count
If Sheets(ss).Name = CStr(.Cells(zz, 1)) Then
MsgBox "Blatt '" & .Cells(zz, 1) & "' bereits vorhanden.", vbInformation
Exit For
End If
Next ss
If ss > Sheets.Count Then
Worksheets.Add after:=Sheets(Sheets.Count)
quittMuster.Copy Cells(1, 1)
Cells(4, 2) = .Cells(zz, 1)
ActiveSheet.Name = CStr(Cells(4, 2))
End If
Next zz
End With
End Sub

Function Loeschen()
Dim objBlatt As Worksheet
Application.DisplayAlerts = False
For Each objBlatt In Worksheets
Select Case objBlatt.Name
Case "Bestellblatt", "Quittung_Muster"
Case Else
If objBlatt.Cells(33, 2).Value = "" Then objBlatt.Delete
End Select
Next
Application.DisplayAlerts = True
End Function