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"

Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim Rg As Range



If Target.CountLarge > 1 Then Exit Sub
If Intersect([TSI], Target) Is Nothing Then Exit Sub
Set Rg = Range("C22:D29,E22:F29,C36:F44,C48:F54,C61:F69,C75:F81,C83:D87,F87,D89,")


Select Case [TSI].NumberFormat

   Case "#,##0.00 [$USD]": Rg.NumberFormat = "#,##0.00 [$USD]"
   Case "#,##0.00 [$EUR]": Rg.NumberFormat = "#,##0.00 [$EUR]"
End Select

End Sub

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?