I am assuming that when you say the cell contains
"AAA  BBB  CCC  DDD", you mean without the surrounding quote marks. Give
this code snippet a try...

 Dim Names() As String
 With Worksheets("Sheet1")
   Names = Split(.Range("A1").Value, " ")
 End With

 '  Proof that it worked
 Dim X As Long
 For X = 0 To UBound(Names)
   Debug.Print Names(X)
 Next

Change the Sheet1 and A1 references to match your needs.

Rick

Hi Arnand,

Try:

'================>>
Public Sub Tester2()
Dim arr As Variant
Dim i As Long
Const sStr As String = "AAA BBB CCC DDD"

arr = Split(sStr, Space(1))

For i = LBound(arr) To UBound(arr)
Debug.Print arr(i)
Next i

End Sub
'<<================

---
Regards.
Norman

If it always has a space, look into the split function, it splits data at a
delimiter into an array, if you don't like that then just step through each
character in a for next loop
*pseudocode*

For i=1 to len(cells(1,1))
myString=myString & trim(mid(cells(1,1),i,1))

if mid(cells(1,1),i,1)="" then
Names(arrayIndex)=mystring
mystring=Nothing
arrayIndex=arrayIndex+1
end if

next

that looks like it should do what you ask.