/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 vote206 views1 answer
Vba search string position
VBA
0 vote183 views1 answer
Excel vba existence of a file
VBA
2 votes183 views1 answer
Date format for ms chart vb.net
VBA
8 votes279 views1 answer
Excel vba make a short integer from two bytes
VBA
0 vote181 views1 answer
Excel vba remove formatting from cell
VBA
6 votes191 views1 answer
Excel vba check if a string only contains alpha characters
VBA
0 vote192 views1 answer
Excel vba urlmon
VBA
0 vote175 views1 answer
Excel vba populate array with cell values
VBA
1 vote192 views1 answer
Excel vba to lower case
VBA
0 vote187 views1 answer
Dynamic array vba
VBA