it works but there might be a quicker way .....

[shadow12345]

Hi,

I need to find a way to speed up the below macro that looks through a sheet and deletes all of the accounts listed. It works well it just that as the voloume has now increased to 27000 rows it takes forever to run, is there any way I can speed it up ?

 

[just_jon]

Missing the code ...

 

[shadow12345]

Sub Delete_fft()


account = "239480"
account2 = "22425"
account3 = "58783"
For i = Range("b65536").End(xlUp).Row To 1 Step -1
If Range("b" & i).Value <> "" And Range("b" & i) = account Or Range("b" & i) = account2 Or Range("b" & i) = account3 Then
Range("b" & i).Rows(1).EntireRow.Delete
End If
Next i

End Sub


duhhhh, sorry[/code]