Zeilen nicht drucken, wenn Spalte leer oder 0

Sub Drucken()
Dim iRowL As Integer, iRow As Integer
iRowL = Cells(Rows.Count, 3).End(xlUp).Row
For iRow = 1 To iRowL
If IsEmpty(Cells(iRow, 3)) Or Cells(iRow, 3).Value = 0 Then
Rows(iRow).Hidden = True
End If
Next iRow
ActiveSheet.PrintPreview
Rows.Hidden = False
End Sub

Sobald ich 3 für Spalte C in 5 für Spalte E ändere, erscheint Laufzeitfehler 13, Typen unverträglich.
Spalte E ist in Excel als Zahl formatiert, es stehen Geldbeträge darin ohne Währungsformat.
Wer kann mir hier weiterhelfen, ich bin VB Laie.