issues in a For Each ... Next loop

[StrawS]

I'm having troubles with a For Each ... Next loop.

I'm not sure how much of my code I should post so I'll start on the lean side and if anyone needs more context - just ask.

For Each cell In Sheets("database").Columns("A")
    If cell.Value = TextBox7.Text Then
        n = n + 1
        If n > UBound(a, 2) Then ReDim Preserve a(1 To 8, 0 To n)
        a(1, n) = cell.Row
    End If
Next

The error message is "Run-time error '13': Type mismatch", generated by the second line I posted.

I have a hunch the error is coming from the cell.value section.

If anyone can shed light on the situation, please let me know.

Thanks.

Straws

 

[jindon]

How is cell formated? date or text?

 

[StrawS]

date

 

[jindon]

Then I don't understand why the results are the same....

The cell value formated as Date should be Long like 33456, so that you can compre with other Date type data, but not with String type data like "02/02/06".

Sorry but I don't know about it...