/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

5 votes341 views1 answer
Excel vba tool to help with refactoring code
VBA
0 vote366 views1 answer
Programmatically copy data from one workshet to another excel
VBA
1 vote358 views1 answer
Vba login website
VBA
0 vote333 views1 answer
Excel vba DisplayAlerts
VBA
1 vote315 views1 answer
Add a index column power bi
VBA
0 vote296 views1 answer
Putting marquee in vb.net
VBA
0 vote332 views1 answer
Test if form is open vb
VBA
32 votes501 views2 answers
Excel vba column letter
VBA
1 vote303 views1 answer
Vba declare api 64 bit 32 bit
VBA
0 vote314 views1 answer
Vbscript check if string is empty
VBA