Thanks to all for all the help
I am able to split my text as I need.



"Per Jessen" wrote:

Hi

With a text in a variable it can be done like this:

Sub aaa()
myarr = Split("immm_JASON_PINTO_DAVID_WEST_1000011", "_")
c = UBound(myarr) + 1
Range("A1").Resize(1, c) = myarr
End Sub

If your many cells with text to split, you should look at TextToColumns in
help.

Regards,
Per

"ub" skrev i meddelelsen
...
Hi
I have a text as follows:
immm_JASON_PINTO_DAVID_WEST_1000011
I want to split the text in different columns using vb code

Please advise


.