thistemp = 'Iain Brodie' ? subs(thistemp, 1, at(' ', thistemp)-1)+' '+subs(thistemp, rat(' ',thistemp)+1)