Something like this should work for you...

Dim Cel as Range
......
For Each Cel In <Your Range Of Cells
If WorksheetFunction.IsNumber(Cel.Value) Then
' It's a number so do something with it
End If
Next

--
Rick (MVP - Excel)


"dstiefe" wrote in message
...
how do you use the IsNumber function in your VBA code

so I want to use VBA to loop through cells and determine if the cell is a
number

then based on that due something else...