VB NEEDED TO SHIFT INITIALS FROM BEGINING OF THE NAME TO END OF THE NAME

[CAPTGNVR]

DAER ALL
I have 3 thou odd names in excel97. The names are entered like
A.S.R.CHARLIE; P.K.WHITE; M.PETER and so on.

Can u pls sugest VB code so that I can run through each cell and take
these initials and attach it at the end of the name after
giving a space or two like
CHARLIE A.S.R; PETER M. and so on.
Pls help. This is posted again as my first one did not get posted.

 

[Jim Thomlinson]

Please check your previous posts. This has already been asnwered...

 

[barnabel]

Google Groups is now only 6-8 hours behind so the multiple posts should start
slowing down.

 

[Mike]

For "Pete's sake" this guy needs prog. help not a history of post or
post/post postings statistics.....

Hope this helps......or puts you on the right path mate.


Put names in column A

Sub Name_IT_Back()

Cell = Cells(Rows.Count, 1).End(xlUp).Address
While Range(Cell).Row <> 1
Posi = Trim(Len(Range(Cell).Value) - InStrRev(Range(Cell).Value, "."))
Range(Cell).Offset(0, 1).Value = Right(Range(Cell).Value, Posi) & " " & _
Left(Range(Cell).Value, Len(Range(Cell).Value) - Posi)
Cell = Range(Cell).Offset(-1, 0).Address
Wend
End Sub

 

[CAPTGNVR]

D/Mike
lol, You really very understanding. The problem was I was checking on
google and it never showed up till Peter Richardson sent me an email to see
in msoffice directly.

Well I tried your code but gives compile error for """"InStrRev"""".
Pls note I am using excel 97.

And also have two names like P.V.R.ALEX MATHEWS AND SO ON.