Thanks Bob.

I'm getting a Syntax error...
Value = (Mid(.Value, 4, 3) & Left(.Value, 3) & Mid(.Value, 7,
4))


--
snowing
------------------------------------------------------------------------
snowing's Profile: http://www.excelforum.com/member.php...o&userid=34576
View this thread: http://www.excelforum.com/showthread...hreadid=558237