Dynamic Currency Conversion

Hello -

I am currently trying to develop a macro button that will convert all currency in a workbook to a different foreign currency and back simply.

In my example, I will be trying to change from USD to British Pounds. The model spans multiple worksheets and has numbers formatted as "Accounting" & "Currency". My current script is below, however it only changes numbers formatted as 'Currency' and not numbers formatted as 'Accounting'. Does anyone know what I am doing wrong?

Any help would be greatly appreciated.

Please Login or Register  to view this content.

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

I did it for you this time. Please read forum rules. Thanks