I've used something like this:

   Dim DeleteValue As String
   Dim rng As Range

   DeleteValue = "File(s)"
   ' This will delete the rows with "File(s)" in the Range("A2:A65536")
   With ActiveSheet
       .Range("A2:A65536").AutoFilter Field:=1, Criteria1:="=*File(s)*"
       '   Need to figure out how to enter DeleteValue above
       
       With ActiveSheet.AutoFilter.Range
           On Error Resume Next
           Set rng = .Offset(1, 0).Resize(.Rows.Count - 1, 1) _
                     .SpecialCells(xlCellTypeVisible)
           On Error GoTo 0
           If Not rng Is Nothing Then rng.EntireRow.Delete

       End With
       .AutoFilterMode = False
   End With

It could probably be more elegant, but it works.

dan skrev:

Hi dan

This asume you have a header
Sub DeleteRows()

Dim i As Double, lastrow As Double, Mydate As Date, rngDate As Date
lastrow = Cells(Rows.Count, "J").End(xlUp).Row
Mydate = "06/01/2006"
With ActiveSheet
For i = lastrow To 2 Step -1
       rngDate = Range("J2").Offset((i - 2), 0).Value
       If rngDate < Mydate Then
       Range("J2").Offset((i - 2), 0).EntireRow.Delete
       
       End If
Next i
End With

End Sub

Regards Yngve