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 vote354 views1 answer
Vba full date format
VBA
0 vote368 views1 answer
VBA Loop to range
VBA
3 votes387 views2 answers
Vba date to string
VBA
0 vote337 views2 answers
Excel vba close without saving
VBA
1 vote351 views1 answer
Excel vba autofit
VBA
0 vote357 views1 answer
Vba loop through table
VBA
0 vote376 views1 answer
Power query M substract minimum value of column -dax
VBA
0 vote390 views1 answer
Delete all controls in an area vb
VBA
0 vote363 views1 answer
Internet explorer reference vba
VBA
0 vote405 views1 answer
Vba is integer
VBA