/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 vote300 views1 answer
Vba is integer
VBA
5 votes273 views1 answer
Excel vba high word from Long Integer
VBA
0 vote264 views1 answer
Excel vba hide columns
VBA
0 vote301 views1 answer
Group controls programmatically vb
VBA
6 votes319 views1 answer
Excel vba isalpha
VBA
0 vote287 views1 answer
Vbnet find highest value in chart
VBA
0 vote292 views2 answers
Open url from vba
VBA
0 vote284 views1 answer
Select case vba
VBA
1 vote309 views1 answer
How to put a gridpain in a vbox
VBA
0 vote291 views1 answer
Excel vba ternary
VBA