Amend all currency/number formats as per one cell currency format

Hi

I have a macro which change currency of selected cells in a worksheet based on the currency format of a cell called "TSI"

Please Login or Register  to view this content.

This works fine, but i would like to do it easier to change all number /currency format in all the worksheets (excluding percentage and dates format of course) as per cell "TSI" currency format, can someone help?

thank you there was some inversion in your code that i corrected, however i would like to run it in the active worsheet meaning

My workbook has 3 worksheet, i kepp only the relevant one deleting the useless ones for my case,
Each worksheet has a cell named "TSI" on which should be based all the currency formated cells in the worsheet

if in the active worksheet, upon changed in TSI value/currency format(EUR or else), then all the numbered formatted cells in the active worsheet sshould have same format than "TSI"
it should apply only on yhe number formatted cells not on the other ones fromatted for example as date or percentage

i guess i should put the code under each worksheet since some will be deleted

could you help me

Please Login or Register  to view this content.

I managed to do it, each time "TSI" value change, below macro looks for all the cells numbered formatted (excluding percentage) change the format of the cell as per TSI format

Please Login or Register  to view this content.