Pokud je zobrazeni meny dano jen formatem bunky, potom je mozno menit format bunek udalostni procedurou na listu Sub Worksheet_Change, mena (EUR,USD,....) je v B1, oblast kde je oblast s hodnotami meny, procedura je priklad mozneho reseni:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$1" Then Exit Sub
Dim kde As Range
Set kde = Range("a2:a4,c2:c4")
kde.NumberFormat = "#,##0"" " & Target.Value & """"
End Sub