If Not ISNUMBER isn't working

[rdev]

I am trying to delete those rows over a range which do not contain a number ,the code isn't working , can someone help me to debug

<code>

Sub getrefunds()
Dim myrange As Range
For Each myrange In Sheets(1).Range("A9:A58")
If Not IsNumber(myrange.Value) Then
myrange.EntireRow.Delete
End If
Next myrange


</code>

 

[pedie]

try

[/FONT]
[FONT=Courier New]Sub getrefunds()
Dim myrange As Range
For Each myrange In Sheets(1).Range("A9:A58")
If IsNumeric(myrange) = False Then
myrange.EntireRow.Delete
End If
Next myrange
End Sub