VBA delete rows when text in cell if more than 5 letters

[cazdealer]

Hi,
I have strings from A1 to A1000.

I would like to create a code line that would delete all rows that the text in cell A is more than 5 letters.

for exemple, keeps the rows that cell A is wer, Aer, EeeeE, WWWWW, E...

but delete the: aaaaaa, information, this is a test, AAAAAA, Aaaaaab


how could I do that with VBA?


thank you

 

[VoG]

Try

Sub test5()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = LR To 1 Step -1
    If Len(Range("A" & i).Value) > 5 Then Rows(i).Delete
Next i
End Sub

 

[cazdealer]

thank you! works like a charm