Try something like this:

Sub test()

Dim i As Long
Dim str As String
Dim arr

str = Cells(1).Text

arr = Split(str, " ")

For i = 0 To UBound(arr)
Cells(i + 1, 2) = arr(i)
Next i

End Sub


RBS


"J@Y" wrote in message
...
If I have a cell with words in them separated by spaces, what is the
fastest/easiest way to store each word into a variable? (Non
Text-to-Column
way)