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

"andrei" wrote:

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