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

Similar codes

0 vote201 views1 answer
Vb window.minimize
VBA
2 votes223 views1 answer
Excel vba extract file name
VBA
0 vote200 views1 answer
How to make a if statement with vbs
VBA
0 vote231 views1 answer
Vba search string position
VBA
3 votes258 views2 answers
Excel "vba" match last value
VBA
5 votes221 views1 answer
Excel vba highlight cells using the hex color value within the cells
VBA
0 vote213 views1 answer
Vba horizontalalignment
VBA
25 votes540 views3 answers
String to date vb
VBA
0 vote206 views1 answer
Excel text to columns line break
VBA
0 vote200 views1 answer
Quit excel with save changes dialog vb.net
VBA