On Tue, 2 Dec 2008 22:58:04 -0500, "Rick Rothstein"
wrote:

A little bit shorter...

=2999999999-(MID(A1,5-(LEN(A1)=9),1)&TEXT(SUBSTITUTE(A1,MID(A1,4,4-2*(LEN(A1)=9)),""),"0000000")&MID(A1,6-(LEN(A1)=9),1))

--
Rick (MVP - Excel)


Yours does not seem work properly with numeric SSN entries that begin with 0 or
00.