delete rows

[k_babb]

can someone help with this macro i want to delete the row if column C does not contain a date
this macro seams to delete lots of cells that contain a date

Sub clearondate()

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(Range("c" & i) = 0) Then

            Rows(i).Delete

        End If

    Next i
end with
End Sub

 

[Rick Rothstein]

If a cell in Column C does not contain a date, will it be blank? Or could there be other values besides dates in there and, if so, what? Also, are the values in Column C contants or formulas?

 

[lenze]

Try this

If Not  Isdate(Cells(i,"C")) Then Rows(i).EntireRow.Delete

lenze

 

[Jonmo1]

Try

Range("C:C").SpecialCells(xlCellTypeBlanks).EntireRow.Delete