Loop through all cells in Range using Interop

Question

I want to loop through all cells in a range.

Dim rngTop, rngAll as Excel.Range
'Set a cell
rngTop = DirectCast(_sheet.Cells(1, 2), Excel.Range)
'Set a range from the Top cell to its last cell in the cells column
rngAll = rngTop.End(Excel.XlDirection.xlDown)

    For Each cell As Excel.Range In rngAll
        If cell.Value2 = "x" Then
            'Do stuff
        End If
    Next

cell.Value is underlined and gives me the compil error that cell.value2 is an object and I cannot use an operator (= in this case) on it. Could anyone help me get this task accomplished? Value2 should not be an object.

I also tried:

    Dim cell As Excel.Range = Nothing
    Dim i As Integer
    For i = 1 To rngAll.Rows.Count
        If DirectCast(rngAll.Cells(i, 5), Excel.Range).Value2 = "x" Then
        'Do stuff
        End If
    next i

but have the same problem as above.

Answer 1

I guess I have the solution. The problem here is that vb doesnt know what type value2 will deliver so it delivers an object. That is why the code give the message that the =-Operator cannot be applied. Using

If CStr(cell.value2) = "x" then
...

works perfect. So the best would be to write a function to check the valuetype for every possible type and convert it.