morry


replace

Selection.AutoFilter Field:=5, Criteria1:="=" & "begDate"
Operator:=xlAnd _
, Criteria2:="<=" & "endDate"


with

Selection.AutoFilter Field:=5, Criteria1:="=" & begDate
Operator:=xlAnd _
, Criteria2:="<=" & endDate


you may also need to dim your variables as dates


I would also replace

Columns("A:A").EntireColumn.AutoFit
Columns("B:B").EntireColumn.AutoFit
Columns("C:C").ColumnWidth = 57.86
Columns("D:D").EntireColumn.AutoFit
Columns("E:E").EntireColumn.AutoFit
Columns("G:G").EntireColumn.AutoFit
Columns("F:F").ColumnWidth = 7.29
Columns("H:H").EntireColumn.AutoFit



with

Columns("A:H").EntireColumn.AutoFit
Columns("C:C").ColumnWidth = 57.86
Columns("F:F").ColumnWidth = 7.29


and replace

Cells.Select
Range("C1").Activate
Selection.Copy

WITH


Cells.cop

--
Message posted from http://www.ExcelForum.com