Splitting cell content and populating other cells

[heideway]

Hi, my first post here (been lurking for a while)

Hoping someone can help me with a coding solution to the following.

I have a cell, say J2, with a number of text fields separated by commas e.g. FSA1,LH2,FSA3,LH4. I want to split out the text between commas and place each on in its own cell e.g Cell J3 = FSA1, J4 = LH2, J5 = FSA3.

The source cell can have between 1 and 25 of these codes.

Your help on how to approach this in VBA (using 2007) would be much appreciated..

 

[VoG]

Try

Sub ASplit()
Dim X
With Range("J2")
    X = Split(.Value, ",")
    .Offset(1).Resize(UBound(X) + 1).Value = Application.Transpose(X)
End With
End Sub

 

[heideway]

Try

Sub ASplit()
Dim X
With Range("J2")
    X = Split(.Value, ",")
    .Offset(1).Resize(UBound(X) + 1).Value = Application.Transpose(X)
End With
End Sub

Thanks VoG,

Helped in under 30 seconds from posting - awesome.....