Problem with existing VBA to format currency

Hi,

I have written some code, that once a user selects a currency from the drop down, then all worksheets are scanned and all fields with a currency format are fomatted accordingly.
So for example if a user selects United Kingdom, all cells with financial or currency information are formatted with the currency £.

For some reason i had this code in another worksheet which was scanning multiple worksheets and worked perfectly. Now i only have one active worksheet and it nots working and i cant seem to pinpoint what the problem is,

can anyone help?

PS: i have uploaded the worksheet