Hello,

I've got a problem with some code of mine (using Excel2003), here's a
simplified version of it that causes the error:

Sub Test()
With Worksheets("Test1").Range("A:A")
Set C = .Find(1, LookAt:=xlWhole)
If Not C Is Nothing Then
CRow = C.Row
Do
With Worksheets("Test2").Range("A:A")
Set V = .Find(Worksheets("Test1").Range("B" &
C.Row).Value, LookAt:=xlWhole)
MsgBox "V = " & Worksheets("Test2").Range("B" &
V.Row).Value
End With

Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Row < CRow
End If
End With
End Sub


It goes thru it once, then returns an error.

Basically, the Test1 sheet is a 'codified' list of transactions, the Test2
sheet is kind of a chart that makes Test1 sheet's values more comprehensible.
The code shown above would be to generate a report.