Sub oder Function nicht definiert??

Sub JahresabrechnungDruck ausführe, bleibt er bei der Zeile Call DBJahresabrechnung stehen und  _
bringt mir die Fehlermeldung "

Sub oder 

Function nicht definiert".
Wenn ich die Subs einzeln laufen lasse wird aber der gewünscht Effekt jeder 

Sub ohne Fehler abgearbeitet. Wo liegt da der Hase begraben?


Sub JahresabrechnungDruck()
Application.ScreenUpdating = False
Sheets("Jahresabrechnung").Visible = True
Sheets("DBJahresabrechnung").Visible = True
Sheets("Nebenkostenabrechnung").Activate
Call DBJahresabrechungKopieren
Sheets("DBJahresabrechnung").Activate
Call LeerzeilenLoeschen
Call LeerzeilenLoeschen2
Application.ScreenUpdating = True
End Sub




Sub DBJahresabrechnungKopieren()
Sheets("Nebenkostenabrechnung").Unprotect Password:="Werner"
Sheets("Nebenkostenabrechnung").Range("A20:AA219").Copy
Sheets("DBJahresabrechnung").Range("A1").PasteSpecial Paste:=xlPasteValues
Sheets("Nebenkostenabrechnung").Protect Password:="Werner"
End Sub




Sub LeerzeilenLoeschen()
Dim lngLetzte As Long
Dim lngR As Long
lngLetzte = IIf(IsEmpty(Range("A200")), Range("A200").End(xlUp).Row + 1, 200)
For lngR = lngLetzte To 1 Step -1
If Cells(lngR, 2) = "" Then
Cells(lngR, 1).EntireRow.Delete
End If
Next
End Sub




Sub LeerzeilenLoeschen2()
Dim lngLetzte As Long
Dim lngR As Long
lngLetzte = IIf(IsEmpty(Range("A200")), Range("A200").End(xlUp).Row + 1, 200)
For lngR = lngLetzte To 1 Step -1
If Cells(lngR, 4) = 0 Then
Cells(lngR, 1).EntireRow.Delete
End If
Next
End Sub


Vielen Dank für Hilfe

Peter S