out of range error message

Hi,
When running the following function, there will be an error message 'subscript out of range'. I can't get to the point, why this happens.

If anyone has a suggestion, I would appreciate that.

VBA:

Sub Test()
Dim lStart As Long, lEnd As Long

With Workbooks("OutOfRange.xls").Worksheets("Information").Columns(2)
On Error Resume Next
lStart = .Find("Database Searches").Row 'first header
lEnd = .Find("Holdings").Row 'second section header
On Error Goto 0
End With
End Sub

I also enclosed the file where this happens.

Cheers
Juergen