I have found and doctored this code to do what I needed.
BeginRow = 2
EndRow = 30000
checkcol = 4
For Rowcnt = BeginRow To EndRow
If Cells(Rowcnt, checkcol).Value = "Closed" Then
Cells(Rowcnt, checkcol).EntireRow.Delete
End If
Next Rowcnt
It works exactly as I needed it to, apart from the fact it misses Rows I need deleted. I could repeat it, and this does remove more, but not all, so I would need to repeat it many many times as there are thousands of rows.
I cant work out why it misses the ones it does & then finds some of them on each consecutive pass.
Any ideas?
Bookmarks