Accessing automatically generated NumberFormat string

I recorded the following macro : Clicked 'Format cells' - Currency and selected US $ . Correspondingly the .NumberFormat property of the range was set to something like "$#,## ...... "
These strings are automatically generated every time a different currency is selected eg Euro or Pound.
Now I want to develop a macro that accesses these mappings through excel - vba. I do not want to manually type out a switch case or an If statement . Eg . If Range("E4").value= "US" Then Range("F4").NumberFormat = "$#,##........." This is because I want to enter the name of any of the currencies in a cell and get the corresponding format in another. I should be able to access all the currencies available in excel.

This macro will take the currency sign from the immediate left cell for all the selected cells. ie for USD you have to give $ sign instead of US

Please Login or Register  to view this content.

rgds

johnjohns