Hi all,
Can someone please take a look and hopefully figure out a way to speed up the execution of the following vba code?
Thank you in advance!
Code:
Sub Remove_Rows()
Sheets("Data").Activate
Dim LRow As Long, n As Long
LRow = Range("C1000000").End(xlUp).Row
For n = LRow To 1 Step -1
If Cells(n, 3).Value = "n/a" Then Cells(n, 3).EntireRow.Delete
Next n
End Sub
Can someone please take a look and hopefully figure out a way to speed up the execution of the following vba code?
Thank you in advance!
Code:
Sub Remove_Rows()
Sheets("Data").Activate
Dim LRow As Long, n As Long
LRow = Range("C1000000").End(xlUp).Row
For n = LRow To 1 Step -1
If Cells(n, 3).Value = "n/a" Then Cells(n, 3).EntireRow.Delete
Next n
End Sub