Object Required Error 424 in For Next Cell

[JStellato]

Hey Guys, I'm having a hard time with a simple problem. Here is my code:

    Dim rptRange As Variant
    rptRange = Range([B1], [B21])

    For Each Cell In rptRange
      If Cell.Value = 1 Then
      
        ' Do something
        End If
    Next

The For Each Cell in rptRange throws an "Object Required" Error 424, I didn't declare Cell as a type anywhere, what am I missing?

Thanks

 

[sergioMabres]

When I changed your code to

Dim rptRange As Variant
rptRange = Range([B1], [B21])
For Each c In rptRange
   If c = 1 Then
  
   ' Do something
   End If
Next

It works, Cell may be a reserved word, for each c in range returns double or string not a cell

 

[Norie]

rptRange is an array with the values from B1:B21.

When you loop through it Cell will be a value from that range.

So basically drop the .Value, as Cell isn't an object.

 

[JStellato]

When I changed your code to

Dim rptRange As Variant
rptRange = Range([B1], [B21])
For Each c In rptRange
   If c = 1 Then
  
   ' Do something
   End If
Next

It works, Cell may be a reserved word, for each c in range returns double or string not a cell

Thanks, I'm used to programming C# so I guess I assumed Cell would refer to the cell in the range, this worked perfectly!

 

[sergioMabres]

Always it is nice to help