Try:

Sub xx()
' Or use a function passing in the range as an argument
' i.e. function xx(byval MyRange as range)
For Each Cell In Range("A1:A2")
CurrentCell = Trim(Cell.Value)
Cell.Offset(0, 1) = Mid(CurrentCell, InStrRev(CurrentCell, " "))
Cell.Value = Left(CurrentCell, InStrRev(CurrentCell, " "))
Next
End Sub

Assumes that words are delimited by a space e.g This Example, This is
another example etc.


"KYO" wrote:


Hi,

I need to select the last word in a cell for a whole column (B) and
paste these
words into Column C...

I am new to this forum and excel and any tips would be greatly
appreciated. :)


--
KYO
------------------------------------------------------------------------
KYO's Profile: http://www.excelforum.com/member.php...o&userid=16120
View this thread: http://www.excelforum.com/showthread...hreadid=275620