Visual Basic para Aplicaciones - No discrimina entre + y -

Buenas tardes foreros:
Tengo un problema con el codigo que os adjunto, la cuestión es que las facturas y los abonos se deben imprimir en formularios distinto para lo que hice este codigo que supuestamente debia discriminar si el valores de la celda donde guardo los datos (hoja Entradas) es negativo o bien positivo y llamar al modulo correspondiente, pero siempre me llama al de las facturas.
Que es lo que estoy haciendo mal?
Mil gracias de antemano por vuestro tiempo

___________________________________________________________________________

Private Sub CommandButton14_Click()
Dim i As Double
Dim Final As Integer

For i = 4 To 10000
If Entradas.Cells(i, 18) = "" Then
Final = i - 1
Exit For
End If
Next

For i = 4 To Final
If Entradas.Cells(i, 18) < 0 Then
Call Imp_Abono.Imp_Abono

Else
Call Imp_Factura.Imp_Factura

Exit For
End If
Next

End Sub
___________________________________________________________________________

Albert

el código no se ve tan mal, sería necesario ver los datos... (si querés pasamelo)
ya probaste depurar el código paso a paso?

Saludos, desde Baires, JuanC

Mil gracias por tu pronta respuesta.
Intento limpiar el archivo de datos "confidenciales" y veo de enviartelo, como tiene bastante programación en el e-mail te digo exactamente donde esta el fallo (que tiene algun otro) no quiero abusar de tu tiempo.
De momento estoy probando de añadir la siguiente linea por ver si lo arreglo con una doble condición.

If Usf_Gastos.ComboBox6 = Entradas.Cells(i, 20) And Entradas.Cells(i, 18) < 0 Then

Gracias

Podrias probar poniendo añadiendo la linea del MsgBox para ver que datos esta tomando.

Por otro lado realiza los abonos has que encuentra una factura y finaliza ¿ Es correcto ?