delete row macro help

[k_babb]

can some one help with this macro i want it to delete the row if cells b and c are empty

Sub macro6()
Range("A1:f6000").Select
Dim i As Long



    'We turn off calculation and screenupdating to speed up the macro.

    With Application

        .Calculation = xlCalculationManual

        .ScreenUpdating = False

      

    'We work backwards because we are deleting rows.

    For i = Selection.Rows.Count To 1 Step -1

        If WorksheetFunction.CountA(Selection.Rows(i)) = 0 Then

            Selection.Rows(i).EntireRow.Delete

        End If

    Next i



        .Calculation = xlCalculationAutomatic

        .ScreenUpdating = True

    End With

End Sub

 

[VoG]

Try

If WorksheetFunction.CountA(Range("A" & i).Resize(, 2)) = 0 Then

            Rows(i).Delete

End If

 

[k_babb]

thank you works great now thanks for your help its much appreciated
do you know of any good resources to learn how to write macros?

 

[VoG]

Take a look at Hiker's List http://www.mrexcel.com/forum/showpost.php?p=2676997&postcount=5