Have you looked at the split function using the space character as the
delimiter?

Sub test()
Dim str As String
Dim ary() As String
Dim lng As Long

str = "this is a test"
ary = Split(str, " ")
For lng = LBound(ary) To UBound(ary)
MsgBox ary(lng)
Next lng
End Sub
--
HTH...

Jim Thomlinson


"Otto Moehrbach" wrote:

Excel XP & Win XP
With VBA, I need to break down large cell entries (more than 256 words)
into individual words. Text-To-Columns works only for 256 words because of
the 256 column limit in Excel XP. Is there a work-around to place the words
into a column rather than a row? Thanks for your time. Otto
PS: My objective is to have VBA work with each individual word. Is there
another way for VBA to capture each individual word?