/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 vote139 views1 answer
Vba find sub dictionary
VBA
0 vote140 views1 answer
Excel vba automatic calculation
VBA
0 vote175 views1 answer
Set datetimepicker value to null vb
VBA
0 vote155 views1 answer
Vba round to 2 decimals
VBA
0 vote149 views1 answer
Return na vba
VBA
0 vote139 views1 answer
How to get the value of optionbutton in vba
VBA
0 vote121 views1 answer
Vbnet make a string to unicode converter
VBA
0 vote134 views1 answer
Loop through lines in text file vb net
VBA
0 vote129 views1 answer
Vbnet chart make 0 gridline line different color
VBA
1 vote140 views1 answer
How to check is the value enterd is a number or text in vba
VBA