Put 20 in range B2 and then try this in the immediate window:

ActiveSheet.range("B2").NumberFormat = "$#,##0.00_ ;[Red]-$#,##0.00"

Why does it go to sterling?!!

Regards
Jason.