Hi All,

I have been given the below bit of VBA from a friend to extract the numbers only from a cell (which works fine) but it extracts all the numbers and puts them all together without and spaces or delimiter which is a bit of a problem as i need to put each number that i extract into seperate cells (I was planning on doing this with text to coulms once i had them extracted)

Function GetNumbers(cText As String)
Dim Lenc As Integer
Dim x As Integer
Lenc = Len(cText)
x = 1
Do While x < Lenc
If IsNumeric(Mid(cText, x, 1)) Then
GetNumbers = GetNumbers & Mid(cText, x, 1)
End If
x = x + 1
Loop
End Function
Can any one help with this?

Many thanks

Jamie