Range("A1").Value = "'" & "1234432156788765"

or if you mean splitting it apart:

myVal= "1234432156788765"
or MyVal = Range("A2").Text

Range("A4") = _
MID(myVal,1,4) & " " & MID(myval,5,4) & " " & _
MID(myVal,9,4) & " " & MID(MyVal,13,4)

--
Regards,
Tom Ogilvy


"jb" wrote in message
...
Tom:

Is there a way to do this with VBA, I have several thousand numbers?

TIA

Tom Ogilvy wrote:
I entered you number with a leading single quote

'1234432156788765

And your formula worked fine for me. You can't store a number with 16
digits - 15 is the max, so you have to store it as text. You can't make
it
text after you enter it as a number by changing the formatting. To be
absolutely sure it is interpreted as text, use the leading single quote.