That works - but first I couldn't see anything :)

Needs a value in the cell

So is this just a tweak of the "Currency" format ?

Steve


On Thu, 25 Jan 2007 07:11:01 -0000, John Bundy
wrote:

Not sure if you wanted it as part of the macro you mentioned but if so
here
it is
Sub Radical()
ActiveCell.NumberFormat = ChrW(8730) & "General"
End Sub