/VBA/Dlete rows with blanks and space " " vba

Dlete rows with blanks and space " " vba

Dim iCounter As Long
With Application
    .Calculation = xlCalculationManual
    .ScreenUpdating = False
    For iCounter = Selection.Rows.Count To 1 Step -1
        If WorksheetFunction.CountA(Selection.Rows(iCounter)) = 0 Then
            Selection.Rows(iCounter).EntireRow.Delete
        End If
    Next iCounter
    .Calculation = xlCalculationAutomatic
    .ScreenUpdating = True
End With

Source: powerspreadsheets.com

Similar codes

0 vote183 views1 answer
If statement vdhl
VBA
0 vote172 views1 answer
Putting marquee in vb.net
VBA
0 vote162 views1 answer
Vba open report
VBA
0 vote168 views1 answer
Vb.net visible property dgv collumn not working
VBA
0 vote167 views1 answer
Returns an array from function vba
VBA
0 vote163 views1 answer
How to extract a file from an ISO:
VBA
0 vote164 views1 answer
Vba find last column in a row with data
VBA
0 vote165 views1 answer
Telephon call in vba
VBA
0 vote159 views1 answer
Excel vba join variant array
VBA
0 vote175 views1 answer
Excel vba set cell value to empty
VBA