Porque sale error 13 en tiempo de ejecucion no coinciden los tipos

Tengo esta macro

Y me sale ese error en la fila en negrita (la tercera fila)

¿Por qué?

If CheckBox7.Value = True And CheckBox1.Value = True Then
For Fila = 3 To 150
If Hoja2.Cells(Fila, 1) = Hoja12.Cells(Me.TextBox1.Text, 1) Then
Exis = Hoja2.Cells(Fila, 3)
If cantidad.Value <> "" And cantidad.Value >= 0 And IsNumeric(cantidad) Then
TotalE = CDbl(cantidad.Value) + Exis + CDbl(reajuste.Value)
End If
Hoja2.Cells(Fila, 3) = TotalE
Hoja2.Cells(Fila, 4) = fe_Ven
Hoja2.Cells(Fila, 5) = lote
Hoja2.Cells(Fila, 8) = TotalE
Exit For
End If
Next
End If