Hi All,

I have a code which works fine , but i have a issue when i want to delete rows 5000 or more the macro takes lot of time to run . I need that macro starts from line to as mention below and go till used range of the column and then delete the row according to given column c?

Sub deleteOnSearch()
J = 2

For i = 2 To 5000 'give the no of rows to search for

Range("C" & J).Select 'give here the column to search in

If ((ActiveCell.Value() = "0")) Then 'give here the search string

Rows(J & ":" & J).Select

Selection.Delete Shift:=xlUp

J = J - 1

End If

J = J + 1

Next

End Sub


Cheers