Conversão moedas em tabela dinâmica

Bom dia!

Sou novo no fórum e sempre acompanho as dicas e estudos para aprendizado. Me deparei com uma questão que não consegui encontrar ainda.

* Em uma tabela dinâmica possui valores. E esses valores são resultados de vendas que aparecem em Reais, Franco Suíço, Dólar, etc.
* Como faço, para ao clicar em um botão, ele converta esse valores para somente em Reais, um outro botão que converta para CHF (Franco Suíço) e por fim um outro botão que retorne os valores de venda normal?

O que fiz hoje: tenho colunas nos três casos, e quando clico no botão, ele oculta as colunas não desejadas. Porém, gostaria que ele calculasse diretamente nas células.

Consegui ser claro na explicação? Agradeceria a ajuda se possível.

E muito obrigado!

Boa noite!!

Eu não entendi, mas tente adaptar.

Código:

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
   
    Dim Currency_Symbol As String
   
    Currency_Symbol = Choose(WorksheetFunction.Match(Worksheets("Data").Range("F7"), Array("EUR", "USD", "GBP", "SEK", "JPY"), 0), "€", "\$", "£", "Kr", "¥")
   
    Worksheets("Prices").Range("D17:D19").NumberFormat = Currency_Symbol & " * #,##0.00"
   
End Sub