Using 'IsNumber' in a Select Case

[Saladsamurai]

Is there a way to do this? I want to loop through a worksheet and test the value in each cell. Is it is a number then I write an "r" to another worksheet like so:




Sub Test()

Dim i as Long
Dim j as Long

For i = 1 to 100
For j = 1 to 100

Select Case Worksheets(1).Cells(i, j)

Case "PDX"
Worksheets(2).Cells(i, j) = Worksheets(1).Cells(i, j)

Case IsNumber
Worksheets(2).Cells(i, j) = "r"

End Select

Next j
Next i

End Sub

[Bob Phillips]

Sub Test()

Dim i As Long
Dim j As Long

For i = 1 To 100
For j = 1 To 100

Select Case True

Case Worksheets(1).Cells(i, j) .Value = "PDX"
Worksheets(2).Cells(i, j) = Worksheets(1).Cells(i, j)

Case IsNumeric(Worksheets(1).Cells(i, j) .Value)
Worksheets(2).Cells(i, j) = "r"
End Select
Next j
Next i

End Sub

[Benzadeus]

Select Case True
Cool.