Convert to Euro - Accounting Format
 

Dear friends,

I use the following macro in order to change my data into euro amounts.

Public Const Euro As Double = 0.585274

Sub ConvertEuro()
Dim MyCell As Range
For Each MyCell In Selection
If IsNumeric(MyCell) And MyCell < "" Then
'And MyCell.HasFormula = False Then
MyCell.Value = Application.Round(MyCell.Value / Euro, 2)
MyCell.NumberFormat = "‚¬0.00"
End If
Next MyCell
End Sub

Is there any possibility to set the NumberFormat to Accounting or Currency?
The ideal should be to be asked and then to select either Accounting or
Currency Format.

Thanking you in advance,

GeorgeC