Visual Basic para Aplicaciones - mostrar datos distintos a cero

Sub Pendientes()

...

'____________________________________________________________________________________________________

    Set Hj = Hoja6

    With Hj.Cells.Range("d3:D1100")

        Set celda = .Find(Datu)

        If Not celda Is Nothing Then

           NameCelda = celda.Address

           Do

              X = X + 1

              If celda.Cells(, 1) <> 0 Then          ' <-- Codicion de diferente de cero lo pendiente

                 With FrmNuevo.ListBox3

                     .AddItem X

                     .Column(0, .ListCount - 1) = celda.Address(0, 0)

                     .Column(1, .ListCount - 1) = celda.Cells(, -2) 'expediente

                     .Column(2, .ListCount - 1) = celda.Cells(, 0) 'honorarios

                     .Column(3, .ListCount - 1) = celda.Cells(, 1) 'pendiente

                 End With

              End If                                  ' <-- Fin condicion

              Set celda = .FindNext(celda)

           Loop While Not celda Is Nothing And celda.Address <> NameCelda

        End If

    End With

    Set Hj = Nothing

    Sheets("hoja3").Select

End Sub