Hi Bob,

The code doesn't work. What am I doing wrong? My code is as follows:

Sub Macro1()

Dim iLastRow As Long
Dim i As Long

iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = iLastRow To 1 Step -1
If Cells(i, "H").Value < DateSerial(2006, 5, 1) And _
Cells(i, "H").Value DateSerial(2006, 5, 31) Then
Rows(i).Delete
End If
Next i


End Sub

Where column "H" is the setup date and I want all the rows to be deleted
except where col. H's value is in May. Column A is the loan number (non
blank) which determines end of the row. Thanks for your help.

Purnima

"Bob Phillips" wrote:

Sub Test()
Dim iLastRow As Long
Dim i As Long

iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = iLastRow To 1 Step -1
If Cells(i, "A").Value = DateSerial(2006, 4, 1) And _
Cells(i, "A").Value <= DateSerial(2006, 4, 31) Then
Rows(i).Delete
End If
Next i

End Sub


--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

"Purnima Sharma" wrote in message
...
I have a worksheet from which I have to select the rows where the setup
date
is between 5/1/06 and 5/31/06 and delete all other rows. How can I achieve
that programmatically? Also, how can I apply multiple conditions to get
the
same results. Thanks.
Purnima