Here's a sample
Here's a sample
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
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks