/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

4 votes210 views2 answers
Vba array length
VBA
0 vote210 views1 answer
Le contrôle SpinButton (Toupie)
VBA
0 vote222 views1 answer
Excel vba clear filter
VBA
0 vote231 views1 answer
VBA Sleep Snippet
VBA
1 vote216 views1 answer
Excel vba make cell visible
VBA
0 vote212 views1 answer
Vbnet dynamically change excel sheet name
VBA
0 vote216 views2 answers
How to concatenate more than 40 lines in vba
VBA
1 vote209 views1 answer
Excel vba autofit
VBA
0 vote214 views1 answer
Vba code to select image in sheet
VBA
0 vote217 views1 answer
Get current url vb.net
VBA