Name swapping

Hi guys,

New to the forum but its been very helpful previously.

I know that this sort of question has been answered previously, but I am unable to locate anything to the extent that i require.

I have a spreadsheet containing 8,000 Names in various formats.

e.g.

Citizen, John
Citizen, John A
Citizen, John A B

The format I want is:

John Citizen

I have found multiple responses for names containing 1 initial but not 2 at the end of the name.

Any assistance would be much appreciated!

PS Looking for a formula but open to VBA

Cheers

Welcome to the forum

Try this

=MID(A1,FIND(",",A1)+2,IFERROR(FIND(" ",A1,FIND(" ",A1)+1)-FIND(" ",A1),LEN(A1)-FIND(" ",A1)))& " " & LEFT(A1,FIND(",",A1)-1)

Woops.

Try this it should remove that extra space

=MID(A1,FIND(",",A1)+2,IFERROR(FIND(" ",A1,FIND(" ",A1)+1)-FIND(" ",A1)-1,LEN(A1)-FIND(" ",A1))) &" "& LEFT(A1,FIND(",",A1)-1)