rearrange first last and middle name in a cell

This will do:

sub snb()
  columns(1).replace ","," "
  for each cl in columns(1).specialcells(2)
    cl=split(cl,"AKA")(0) & "AKA " & split(split(cl,"AKA ")(1))(2) & " " & split(split(cl,"AKA ")(1))(0) & " " & split(split(cl,"AKA ")(1))(1)
  next
end sub