Macro that takes words from a sentence and puts them in diff cells

[andrei]

I need a macro which takes every word from a sentence in a cell and puts it
in a different cell

Example :

A1 : Mother and father are gone on vacation

What i need is a macro which does this :

B1 : Mother
C1 : and
D1 : father
E1 : are
F1 : gone
G1 : on
H1 : vacation

 

[Mike H]

Hi,

Try this

Sub Sonic()
Dim V As Variant
Dim S As String
V = Split(Range("A1").Value, " ")
For x = 0 To UBound(V)
Cells(x + 1, 2) = V(x)
Next
End Sub
Mike

 

[Mike H]

My mistake you wanted it in columns not roes

Sub Sonic1()
Dim V As Variant
Dim S As String
V = Split(Range("A1").Value, " ")
For x = 0 To UBound(V)
Cells(1, x + 2) = V(x)
Next
End Sub

Mike

 

[andrei]

Thanks ! It works now !

My mistake you wanted it in columns not roes

Sub Sonic1()
Dim V As Variant
Dim S As String
V = Split(Range("A1").Value, " ")
For x = 0 To UBound(V)
Cells(1, x + 2) = V(x)
Next
End Sub

Mike