VBA Formel

Private Sub CommandButton1_Click()
Dim Zeile As Long
On Error GoTo FEHLER
With Me.ListBox1 'Namen der Combobox ggf. anpassen
Zeile = .ListCount
For Zeile = 0 To Zeile - 1
.ListIndex = Zeile
Me.Calculate 'Tabellenblatt neu berechnen
If .Value  "" Then 'Bei leeren Einträgen nicht drucken
With Worksheets("Nichtang.") 'zu druckendes Tabellenblatt
PrintOut 'Drucken des Tabellenblatts
'.PrintPreview 'Seitenvorschau des Tabellenblatts
End With
End If
Next
End With
FEHLER:
With Err
If Err  0 Then
MsgBox "Fehler-Nr. " & .Number & vbLf & .Description
End If
End With
End Sub

Ich bekomme bei Me.Calculate einen Fehler.
Für Hilfe wäre ich dankbar.
Gruß Peter