search for 0.00 to delete and it deletes 160.00

I created a macro to search for the 0.00 values in a column and then delete the entire row. however any number in the column with 0.00 in it is deleted also. Example 0.00- deleted, 150.00 deleted, 140.00 deleted. My numbers include the decimal so I need to delete 0.00 to get it to work without deleting all the numbers that contain that string also.

My marco

 Dim c As Range

    Dim SrchRng


    Set SrchRng = ActiveSheet.Range(“J5”, ActiveSheet.Range(“J65536”).End(xlUp))


        Set c = SrchRng.Find(“0.00”, LookIn:=xlValues)

        If Not c Is Nothing Then c.EntireRow.Delete

    Loop While Not c Is Nothing


By: Riddell_13

Leave a Reply

Your email address will not be published. Required fields are marked *