G Guest May 9, 2006 #2 HI, Try this function Function RevStr(Rng As Range) RevStr = StrReverse(Rng.Text) End Function