I'm a newbie to VBA but have gotten help previously with a VBA formula it it makes everything so much easier. so I was wondering if I could get help.

In column C of my spreadsheet I have display names:

Mrs MAT Schnetler

Mr J Smith

Ms AD Adams

Mrs ASDLK Botha

I have used the following three formulas:

=RIGHT(C1,LEN(C1)-FIND(" ",C1)) - to get rid of the salutations

=LEFT(D2,FIND(" ",D2,1)-1) - to get rid of surname

=SUBSTITUTE(TRIM(MID(E1,1,1)&" "&MID(E1,2,1)&" "&MID(E1,3,1)&" "&MID(E1,4,1))," "," ") - to add a space between the initial letters.

so my results are:

M A T

J

A D

A S D L K

However I ended up creating three extra columns D,E.F in my spreadsheet then copy and pasting my final result in Column F and paste special as Values in column D then delete column E and F.

So I would like to either combine all three formulas or better yet create a VBA string so that it can do it all.