Help - How to convert multiple currencies with one VBA

Hi

I have a set of data that has multiple companies and their revenues. However each company has revenue in a different currency. I want to convert them all to USD.

i have downloaded a set of currencies and their conversion rates. In order to do the conversion I have created a IF Formula based VBA. However as there is about 165 currencies I was wondering if there is a more simple way to write the code rather than doing a IF formula based on all the currencies (i.e. IF Company X Currency code is = currency code in list, that multiply revenue by the associated conversion rate)?? This would mean I wrote the IF Formula 165 times which would take me ages.

The VBA code I have currently is picking up 3 of the currencies which can be seen below. I have also attached an example of what I am working on.

Could someone give me some advise please??

Please Login or Register  to view this content.

Thank you both!!