Format currency to euro in VBA range and loop

[Leo_Polla_Psemata]

Hi
The below formats a number to usd currency
Columns.NumberFormat = "$#,##0.00;-$#,##0.00"

What if we want euro ? I replaced the $ to € and doesn't work, it returns a big black question mark


Edit
I made a macro in excel,
it gave this line
"_([$€-x-euro2] * #,##0.00_);_([$€-x-euro2] * (#,##0.00);_([$€-x-euro2] * ""-""??_);_(@_)"

I copy paste in my line
.Range("O4", "Q" & i).NumberFormat = "_([$€-x-euro2] * #,##0.00_);_([$€-x-euro2] * (#,##0.00);_([$€-x-euro2] * ""-""??_);_(@_)"

and it works but it is too big too complicated, is this the only way ?
Why $ is so simple and euro a headache ??

 

[Leo_Polla_Psemata]

Hi
In my report that I export from Access to excel, i have two currencies, usd and euro
Now, i format $ as "currency" while i format the euro as above port and the result is like this picture.
How could I make format of both currencies look the same format ?