Calculation issue with zero

This works except when it gets to cells (x, 7) and (x, 8) and both have a zero in the cell. I get an Error '6' "Overflow" message. How can I fix?



Dim x As Integer
Dim Y As Integer

x = 2
Y = 2

Do
If Cells(x, 1) >= Not Empty Then
Cells(Y, 23) = Cells(x, 7) / Cells(x, 5)
Cells(Y, 24) = Cells(x, 7) / Cells(x, 8)
Cells(Y, 25) = Cells(x, 8) / Cells(x, 5)

Y = Y + 1

End If
x = x + 1
Loop Until Cells(x, 1) = Empty

Add another conditional check.

Please Login or Register  to view this content.

Originally Posted by Edscuda in a private message

Thanks for your help. This is better but I am getting a "Loop Without Do" message now.

Please Login or Register  to view this content.

That did it! Thank you very much for your help. As you can tell I am a novice at VBA.

This could be simplified even further since x and y will always be the same.

Please Login or Register  to view this content.