Check if cell as text contains anything other than 0 to 9
<p>I have a series of ill formatted cells, and I'm extracting the ones that have something that is not a number, but the value iN the cells is text(String), so IsNumeric won't work</p>

<p>For example :</p>

<p>4884756921</p>

<p>488475692?</p>

<p>487575e75484</p>

<p>I want to find the ones that have text without changing it</p>

<pre><code>Dim i As Integer
i = 1
'' i is where i'm storing what is found

For j = 1 To Rows.Count

    If Len(Cells(j, 4)) = 20 Then

            Cells(i, 6).Value = Cells(j, 4)
            Cells(i, 7).Value = Cells(j, 4).Row + 1
            Cells(j, 4).Value = ""
            i = i + 1

    End If

Next j
End Sub
</code></pre>