Date Search Macro Runs, But Returns No Results

I'm trying to make a macro to keep track of our rental properties. This macro, in another variant, worked as planned, searching for data in a column, copying the row to a new sheet, and clearing the contents of that row.
So I've tried to make it search for a date in a new workbook and do the same. It runs, and tells me it has returned zero significant results (did not find data to move and delete).
My column I is formatted mm/dd/yy . And the rest of the workbook is protected.
Here's what I have:



Sub CopyReturns()
'Macro written 10/2/08 by Jeff
ActiveSheet.Unprotect
Dim DestSheet As Worksheet
Set DestSheet = Worksheets("Sheet2")
Dim sRow As Long 'row index on source worksheet
Dim dRow As Long 'row index on destination worksheet
Dim sCount As Long
sCount = 0............