For each cell - if IsNumber - return if no number found

[Barsoe]

Hi

My question is in the code

Public Sub findforeach()
Dim ws As Worksheet
Set ws = ActiveSheet
' how do I return these :
' if no cell in below range with number value is found then
' if below if statement is true for the first number value found (most likely in A45) then
Dim Cell As Range
For Each Cell In Range("A45:a61")
If Application.WorksheetFunction.IsNumber(Cell.Value) = True And Cell.Offset(0, 37) = "" Then
    MsgBox ("Found number " & Cell.Value)
    Cell.Offset(0, 37) = "username & date"         
    Else
    End If
Next Cell
End Sub

 

[bebo021999]

This "Number values represent product codes and text values represent costs of various kind." confuse me
It means Product code in number, and cost in text ?!?
Is it actually product code in text, and cost in value?
It should be best help, if you can upload image/screenshot to see what is in column A and AL (hide columns between those columns)