/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

1 vote169 views1 answer
Vba declare api 64 bit 32 bit
VBA
0 vote168 views1 answer
Quit excel with save changes dialog vb.net
VBA
0 vote168 views1 answer
Do until vb.net
VBA
0 vote201 views1 answer
Vba change active sheet
VBA
8 votes291 views1 answer
Excel vba determine number of elements in a 1D array
VBA
0 vote207 views1 answer
Vba cell all borders
VBA
3 votes179 views1 answer
Vba make long from two shorts
VBA
0 vote177 views1 answer
Refer to resource using string variable vb.net
VBA
0 vote179 views1 answer
How to convert weeks to days into textbox with VB site:stackoverflow.com
VBA
3 votes193 views1 answer
Excel insert blank row for value change in column
VBA