Split cell without breaking word?

Toppers:
How do I execute that fomulation? I am using Excel 2000. Will I need 2003 to do that?

Thanks...Doug

This is VBA (Visual Basic for Applications) code.

As you are not familar with this you may need to do some research - I was
assuming some knowledge when I replied. Some addiional code will be required
as I expect you have many cells to convert.

To save time, send me your w/book anf I'll incorporate the code
(toppers@johntopley.fsnet.co.uk)

HTH


Sub A
Dim v As Variant
Dim str1 As String, str2 As String
Dim fstr As Boolean
v = Split(Textstring," ")
str1 = ""
str2 = ""
fstr = True
For i = LBound(v) To UBound(v)
If Len(str1) + Len(v(i)) > 30 Then fstr = False
If fstr Then
str1 = str1 + v(i) + " "
Else
str2 = str2 + v(i) + " "
End If
Next i
MsgBox str1 & " / " & str2
End sub

"Doug Benjamin" wrote:

>
> Toppers:
> How do I execute that fomulation? I am using Excel 2000. Will I need
> 2003 to do that?
>
> Thanks...Doug
>
>
> --
> Doug Benjamin
> ------------------------------------------------------------------------
> Doug Benjamin's Profile: http://www.excelforum.com/member.php...o&userid=33407
> View this thread: http://www.excelforum.com/showthread...hreadid=532285
>
>