the results of the format is a string. You simply want to replaced the
3rd character from the right with a period.


MyStr as string

MyStr = format(activecell.value,"0.00")
MyStr = left(MyStr,len(MyStr) - 3) & "." & Right(MyStr,2)

This will work with any International settings. the file really stores
the number as text so you won't have any problems.


--
joel
------------------------------------------------------------------------
joel's Profile: http://www.thecodecage.com/forumz/member.php?userid=229
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=149382