Excel - Error al buscar

For i = xHj To uHj

        Set Hj = Sheets(i)

            With Hj.Cells

                Set Celda = .Find(Datu, MatchCase:=True)

                Set Celda2 = Celda

                If Not Celda Is Nothing Then

                    NameCelda = Celda.Address

                    Do

                        x = x + 1

                        With ListBox1

                            .AddItem x

                            .Column(1, .ListCount - 1) = Celda.Value

                            .Column(2, .ListCount - 1) = Celda.Address(0, 0)

                            .Column(3, .ListCount - 1) = Hj.Name

                        End With

                        Set Celda = .FindNext(Celda)

                    Loop While Not Celda Is Nothing And Celda2.Address <> NameCelda

                End If

            End With

        Set Hj = Nothing

    Next i