Loop

hi,

please dear god someone help me...

i'm stuck in an endless loop and i cannot for the life of me figure out why... i figure you guys will know.

please trust that all my variables are initiated properly, and are not empty... this is in a module, contained in a sub.

here's my code:

Dim notfoundarr
notfoundarr = Split(notfound, "#$%")
Dim usedcells
Set usedcells = Sheet3.UsedRange.Cells


If IsArrayEmpty(notfoundarr) = False Then
    'loop through all of the not found entries
    For i = 0 To UBound(notfoundarr)
        'now we loop through each cell, to add the missing rows at the end of the rows where there is data
        For Each Cell In usedcells
            'check to see if the current cell has numeric value, and next row same cell is empty
            If Cell.Value <> "" And IsNumeric(Cell.Value) = True And Sheet3.Cells(Cell.Row + 1, Cell.Column) = "" Then
                'add the new row below
                Cell.Offset(1).EntireRow.Insert
                'now that we've added the row to the end of the ranges, we want to add the label, and the value inside those cells
                Sheet3.Cells(Cell.Row + 1, Cell.Column - 1).Value = labels(CInt(notfoundarr(i)))
                Sheet3.Cells(Cell.Row + 1, Cell.Column).Value = values(CInt(notfoundarr(i)))
            End If
            
        Next
    Next
End If

as you can see, i've even tried to set the UsedRange cells into a variable thinking that my adding a value inside the cell was somehow changing the UsedRange request.

Now here's the very weird part, if i change this line:
Sheet3.Cells(Cell.Row + 1, Cell.Column).Value = values(CInt(notfoundarr(i)))

For this line:
Sheet3.Cells(Cell.Row + 1, Cell.Column + 1).Value = values(CInt(notfoundarr(i)))

everything works fine, but the value is not in the right column in the new row.

please help!! :S

Matt