/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 vote149 views1 answer
Remove last 8 characters from string vb
VBA
0 vote156 views1 answer
Arq linux
VBA
0 vote158 views1 answer
Default host vbox address
VBA
0 vote196 views1 answer
Excel vba protect content
VBA
3 votes144 views1 answer
Excel vba read registry key value
VBA
1 vote140 views1 answer
Excel vba saveas force overwrite
VBA
0 vote149 views1 answer
Ribbon show/hide
VBA
0 vote198 views2 answers
VB
VBA
0 vote149 views1 answer
Vba nested dictionary
VBA
15 votes277 views2 answers
Xl vba dynamic string array
VBA