This is a fomulma "B2", which refers to cell "A2". It can be copied down your
column. Fope this will do the job. If it has to be in code, then edit the
formula with the recoder turned on.
=LEFT(A2,1)&" "&MID(A2,FIND(" ",A2,1),LEN(A2)-FIND(" ",A2,1)+1)

"Gordon" wrote:

Hi...

I'm looking for code that will convert a column of first and surnames to an
adjacant column of initials. eg. column A says Bill Smith, I want column B to
say BS. This should apply to any name of any length...

Thanks in advance...

Gordon.