On 9 May, 10:11, Ams wrote:
Pleasae guide me to find out numeric data in cell where the cell
contains both aplha & numeric value.

Sounds like a job for the Split function

Function GetNumeric(S as string)
Dim i as Integer
Dim Lumps as Variant
Lumps = Split(S," ") ' or delimiter of your choice, but your example
used a space
For i = 0 to Ubound Lumps
If Isnumeric(Lumps(i)) then ' found a number
GetNumeric = Val(Lumps(i))
Exit Function
End If
Next
' If we get here, there wasn't one
GetNumeric = "<Invalid Data"
End Function