/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 round to 2 decimals
VBA
0 vote286 views1 answer
Vbnet line graph smooth lines
VBA
0 vote322 views1 answer
Vbnet round to nearnest thousand
VBA
0 vote280 views1 answer
Convert Seconds to HH:MM:SS in VB.Net
VBA
0 vote281 views1 answer
How to make a a msgbpx in vbs
VBA
4 votes266 views1 answer
Excel formula for last non-empty cell in a column
VBA
0 vote282 views1 answer
Vba paste values
VBA
0 vote278 views1 answer
Excel vba disable mouse click
VBA
1 vote314 views1 answer
Find and replace textbox
VBA
1 vote291 views1 answer
Vba reverse string
VBA