Please suggest me to separate numbers from cell that contain text along with the number.
The length of the data can be anything.It can 1,2 or above 100.
Function SaperateNum(Num As String)
For i = 1 To Len(Num)
m = Mid(Num, i, 1)
If IsNumeric(m) = True Then Numm = Numm + m
Next i
SaperateNum = Numm
End Function