VBA help

[MartinL]

Hi

I am revamping this bit of code

If AWB.Value <> "" Then

The cell it refers to now, must be returned not if it is not blank but if it contains numbers

The problem is it is not really a number as it can and will contain spaces
ie 145 4132 6552

how can I get around this

M

 

[RSXchin]

ooops, misread question....

 

[MartinL]

ooops, misread question....

yeah I guess what Im trying to say is If(Isnumber(AWB.Value) Then

 

[Peter_SSs]

Is this what you want?

If IsNumeric(Replace(AWB.Value, " ", "")) Then
    MsgBox "Numeric"
Else
    MsgBox "Not Numeric"
End If

 

[MartinL]

Thanks Peter thats spot on