'Paste this macro in Worksheet_SelectionChange
'Type a sentence in Column "A" and select cell.

If ActiveCell.Column = 1 Then
rng = (ActiveCell.Text) & " "
l = Len(rng)
m = 1
k = 1
For i = 1 To l
If Mid(rng, i, 1) = " " Then
ActiveCell.Offset(0, m) = Mid(rng, k, i - k)
If Len(Mid(rng, k, i - k)) 1 Then
m = m + 1
End If
k = i
End If
Next i
End If

If 1st word is 2 or more charctors it seems to split sentance up
starting in column b

If 1st word is 1 charactor it places 2nd word in column B - is this the
way it is supposed to work?


--
mudraker
------------------------------------------------------------------------
mudraker's Profile: http://www.excelforum.com/member.php...fo&userid=2473
View this thread: http://www.excelforum.com/showthread...hreadid=540546

If 1st word is 2 or more charctors it seems to split sentance up
starting in column b

If 1st word is 1 charactor it places 2nd word in column B - is this the
way it is supposed to work?


--
mudraker
------------------------------------------------------------------------
mudraker's Profile: http://www.excelforum.com/member.php...fo&userid=2473
View this thread: http://www.excelforum.com/showthread...hreadid=540546

Thank u for point out the mistake.

rng = " " & (ActiveCell.Text) & " "
is the correct code.

THANKING U ONCE AGAIN.

"mudraker" wrote:


If 1st word is 2 or more charctors it seems to split sentance up
starting in column b

If 1st word is 1 charactor it places 2nd word in column B - is this the
way it is supposed to work?


--
mudraker
------------------------------------------------------------------------
mudraker's Profile: http://www.excelforum.com/member.php...fo&userid=2473
View this thread: http://www.excelforum.com/showthread...hreadid=540546