Hi Randy,

Here's some code that will capture all rows with dates between 9th Jan in
column A, and 3rd Feb in column B

Worksheets("Sheet2").Cells.ClearContents
With Worksheets("Sheet3")
.Range("A1").EntireRow.Insert
With .Columns("A:B")
.AutoFilter Field:=1, Criteria1:="=09-Jan", Operator:=xlAnd
.AutoFilter Field:=2, Criteria1:="<=03-Feb", Operator:=xlAnd
End With
.Cells.SpecialCells(xlCellTypeVisible).Copy
Worksheets("Sheet2").Activate
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
.Range("A1").EntireRow.Delete
.Range("A1").EntireRow.Delete
End With


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Randy Walker" wrote in message
...
I know a little about this excel and less about programming but was
directed here by a friend to try and find an answer. I have looked through
the posts but can't find anything that seems to answer my question.
Although since I am not exactly sure what to do, maybe this has already been
answered before.

I have a sheet full of data - over 20,000 rows right now and it gets
longer each month. I need a macro that will pull out any row of data that
has a date value between two that I select. I need this data for ad-hoc
reports. I sorry if this is confusing. Basically on sheet1 in "A1" and
"A2" I would put two dates. Then it would pull out any row that has a date
in column A that is between these two dates and paste it on sheet2. That
sheet with all the data is sheet3.

If there is a way to do this that would be great as I have to pull alot of
stuff out of this and this would save me alot of time sorting and searching.

Thanks for taking the time to look at this and for any help that you can
provide.

Thanks,

Randy Walker