/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 vote326 views1 answer
Excel vba protect worksheet without password
VBA
0 vote335 views1 answer
Excel vba add reference programmatically
VBA
5 votes324 views1 answer
Excel formula how to create strings containing double quotes
VBA
1 vote318 views1 answer
What does vbs stand for
VBA
0 vote336 views1 answer
Vbnet revrese the order of character in string
VBA
0 vote307 views1 answer
Vbnet line graph smooth lines
VBA
0 vote299 views1 answer
Vba code to select image in sheet
VBA
0 vote325 views1 answer
Vbnet access System.InvalidOperationException: 'Update requires a valid UpdateCommand when passed DataRow collection with modified rows.'
VBA
0 vote307 views1 answer
Replace spaces with underscores vbnet
VBA
0 vote332 views1 answer
Vba registry settings
VBA