vba format currency
' If A1 value is 2021,543
With Range("A1")
.NumberFormat = "€#,##0.00" ' -> €2021,54
.NumberFormat = "$ #,##0.00" ' -> $ 2021,54
.NumberFormat = "#,##0.00 €" ' -> 2021,54 €
.NumberFormat = "#,##0€" ' -> 2022€
Debug.Print .NumberFormat ' -> #,##0€
End With