MsgBox
Selection.Paragraphs(1).Range.Words(1).Characters( Selection.Paragraphs(1).Range.Words(1).Characters.
_
Count - 1)
MsgBox
Selection.Paragraphs(1).Range.Words(Selection.Para graphs(1).Range.Words.Count
- 1).Characters
_((Selection.Paragraphs(1).Range.Words(Selection.P aragraphs(1).Range.Words.Count
- 1).Characters.Count))


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP
"Steved" wrote in message
...
Hello from Steved

Tokiocity That Figures

Using the above as examples please how would I write a macro to find the
last character
ie in Tokiocity it would be y
ie in That Figures it would be s

Thankyou.