Currency format and superscript numbers (VBA)

[ab3887]

I have a table that looks like this:

A $125,000
B $350,000
C $109,000
D $122,000

The values come from formulas on another sheet and change frequently. The table gets attached to a publisher document that goes out to clients and row D has an important disclosure. Because of this I need to append a superscript 1 at the end of $122,000. What is the easiest way to do this with VBA?

Currently I could only get it to work by typing it in manually, formatting as text, and having a space between the last 0 and the superscript 1, but I wasn't able to replicate this in VBA.

(I'm using excel 2007)

 

[pgc01]

Hi

A much easier solution, that doesn't require any further processing is to format the cell with the custom format

$#,##0 ¹

where the ¹ is not a regular character "1" in which you apply the superscript format, but, instead, the unicode character "superscript one". You can insert it with the insert->symbol, the code is 0xB9, or with vba.

 

[ab3887]

Thanks, custom formatting definitely works better.

I ended up going with Alt+0185 to generate the superscript 1 character and it worked perfectly.