mu fault, misread your post

this should be better

Sub cus()
For i = 20 To 1 Step -1
Cells(i, 1).Activate
If Len(Cells(i, 1)) And InStr(1, "T75TA", Cells(i, 1)) = 0 Then
Cells(i, 1).Rows.EntireRow.Delete
Next i
End Sub



On 19 Lis, 22:39, SITCFanTN
wrote:
I only want to keep the rows with T75TA, all the others I need to delete. Â*I
could not get this to work...am I doing something wrong? Â*Thank you.



"Jarek Kujawa" wrote:
Sub cus()

For i = 10000 To 1 Step -1
Â* Â* If Len(Cells(i, 1)) And InStr(1, "T75TA", Cells(i, 1)) Then Cells
(i, 1).Rows.EntireRow.Delete
Next i

End Sub

On 19 Lis, 14:59, SITCFanTN
wrote:
I want to create a macro that will run through 10,000 plus rows and quickly
delete all rows if Col A does not contain the text of T75TA. Â* Â*Any help you
can provide is greatly appreciated, thank you.

.- Ukryj cytowany tekst -

- Pokaż cytowany tekst -