Hello, I have a macro that looks for data in a cell, if there is data, it deletes the entire row. It works fine but it's taking forever to run on a 2000 line spreadsheet. Does anyone know how to speed it up? I've tried turning of the screenupdating but that didn't help much.
Range("D2").Select
Do Until ActiveCell.Offset(0, -3) = ""
If ActiveCell = "" Then
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.EntireRow.Delete
End If
Loop
Thanks.
Range("D2").Select
Do Until ActiveCell.Offset(0, -3) = ""
If ActiveCell = "" Then
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.EntireRow.Delete
End If
Loop
Thanks.