I am using this code to delete all rows with zero's in col D. It works but is extremely slow on large ranges.
How can I speed up the code?
Any help will be appreciated.
Dim cell As Range
For Each cell in Range("D2:D900000")
If cell.Value = 0 Then
cell.EntireRow.Delete
EndIf
Next cell
How can I speed up the code?
Any help will be appreciated.
Dim cell As Range
For Each cell in Range("D2:D900000")
If cell.Value = 0 Then
cell.EntireRow.Delete
EndIf
Next cell