Delete Rows w. Multiple Space

Hi Guys,

I need a macro to delete rows with spaces greater than 20. I don't know how excel define a space so I'm not sure where to start.

Can anyone help with this one? Thanks!

Why not post an example workbook which has examples of what you mean by 20 spaces.

Include both types of rows and let us know which you think should be deleted.

try this,

Sub X()

    Dim lngRow As Long
    
    With ActiveSheet
        For lngRow = .Cells(.Rows.Count, 1).End(xlUp).Row To 1 Step -1
            If Len(.Cells(lngRow, 1)) > 0 Then
                If Len(Trim(Left(.Cells(lngRow, 1), 20))) = 0 Then
                    .Cells(lngRow, 1).EntireRow.Delete
                End If
            End If
        Next
    End With
        
End Sub