Looping through cells that are blank but have formula ?

[JumboCactuar]

Hi,
having trouble with this one

basically i have a column (J) of cells with the following formula

=IFERROR(INDEX(B2:$B$10000,MATCH(I2,F2:$F$10000,0)),"")

and i want to write values into all the cells that are blank

something like:

Sub test()
Dim r As Range
For Each r In Range("J2:J10000")
    If r = "" and r.Offset(0, -1).value < 10 then
    r = r.Offset(0, -1).value + 10
    End If
Next
End Sub

ive tried
if r = 0
if len(r) = 0
if isblank(r)

no luck

any help appreciated

 

[Fluff]

Looking at certain names is only going to slow things down. You will still need to loop through 10,000 rows, but will then be making even more checks as you do.
It should only take a couple of seconds with your code. If its taking longer try

Sub test()
With Application
   .ScreenUpdating = False
   .Calculation = xlCalculationManual
   .EnableEvents = False
End With
Dim r As Range
For Each r In Range("J2:J10000")
    If r.Value = 0 And r.Offset(0, -1).Value > 0 And r.Offset(0, -1).Value < 10 Then
    r = r.Offset(0, -1).Value + 10
    End If
Next
With Application
   .ScreenUpdating = True
   .Calculation = xlCalculationAutomatic
   .EnableEvents = True
End With

End Sub