Macro to delete rows whwre Values sum to Zero

[Howardc1001]

I have tried to write code to delete rows where there are values of 0.01 (positive or negative) , that sum up to zero

Please Login or Register  to view this content.

Your assistance is most appreciated


It would be appreciated if someone could kindly amend my code

[KOKOSEK]

These values are:

-1.00000000093132E-02
-9.99999999476131E-03
9.9999999802094E-03
1.00000000020373E-02

so <> 0, so I am not surprise that rows have not been deleted.
I've tried:

Please Login or Register  to view this content.

[Howardc1001]

Thanks for the help

when running the macro I get a run time errror 'Type Mismatch an the code below is highlighted

Please Login or Register  to view this content.

Please Login or Register  to view this content.

Kindly test & amend code

[KOKOSEK]

Please Login or Register  to view this content.

in row 1 column 4(D) is word Amount so there is no absolute value of it :-)

[Howardc1001]

thanks for the code and for your input

[KOKOSEK]

Happy to help.
Thanks for rep.