4-е макроса которые бы меняли формат ячейки на денежный – рубли, доллары, английские фунты и евро

Sub menu()
Set myMenuBar = CommandBars.ActiveMenuBar
Set newMenu = myMenuBar.Controls.Add(Type:=msoCon trolPopup, Temporary:=True)
newMenu.Caption = "Формат ячеек"
Set dm = newMenu.Controls.Add(Type:=msoContr olButton)
dm.OnAction = "Макрос1"
dm.Caption = "Рубли"
Set nm = newMenu.Controls.Add(Type:=msoContr olButton)
nm.OnAction = "Макрос2"
nm.Caption = "Доллар"
Set lm = newMenu.Controls.Add(Type:=msoContr olButton)
lm.OnAction = "Макрос3"
lm.Caption = "Английский фунт"
Set km = newMenu.Controls.Add(Type:=msoContr olButton)
km.OnAction = "Макрос4"
km.Caption = "Евро"
End Sub

Sub stdial2()
For i = 1 To 2
Cells(i + 1, 1).Value = InputBox("Введите свою фамилию")
Cells(i + 1, 2).Value = InputBox("Введите свое имя")
Cells(i + 1, 3).Value = InputBox("Введите год рождения")
Cells(i + 1, 4).Value = InputBox("Какое у вас образование?")
Cells(i + 1, 5).Value = InputBox("Ваш пол?")
Cells(i + 1, 6).Value = InputBox("Ваше семейное положение")
Next i
End Sub

Sub stdial3()
da = 0
net = 0
otm = 0
c = MsgBox("Отформатировать текст?", vbYesNoCancel)
If c = vbYes Then da = da + 1
If c = vbNo Then net = net + 1
If c = vbCancel Then otm = otm + 1
c = MsgBox(" Увеличить шрифт?", vbYesNoCancel)
If c = vbYes Then da = da + 1
If c = vbNo Then net = net + 1
If c = vbCancel Then otm = otm + 1
c = MsgBox("Удалить файл?", vbYesNoCancel)
If c = vbYes Then da = da + 1
If c = vbNo Then net = net + 1
If c = vbCancel Then otm = otm + 1
c = MsgBox("Сделать копию документа?", vbYesNoCancel)
If c = vbYes Then da = da + 1
If c = vbNo Then net = net + 1
If c = vbCancel Then otm = otm + 1
c = MsgBox("Открыть документ?", vbYesNoCancel)
If c = vbYes Then da = da + 1
If c = vbNo Then net = net + 1
If c = vbCancel Then otm = otm + 1
MsgBox ("Да=" & da & " Нет=" & net & " Отмена=" & otm & " ")
End Sub

Sub menu()
'С помощью инструмента Set помещаем в переменную myMenuBar панель меню Excel
'(вторая сверху строка в Excel), там где Файл, Правка и т.д.
'Будем воздействовать на эту панель меню через переменную myMenuBar.
'Панель меню включает в себя следующие меню: Файл, Правка и т.д.
Set myMenuBar = CommandBars.ActiveMenuBar
'Добавление на панель меню нового меню и помещение этого нового менею в переменную newMenu.
Set newMenu = myMenuBar.Controls.Add(Type:=msoControlPopup, Temporary:=True)
'Создание названия для нового меню.
newMenu.Caption = "Формат ячеек"
'Добавление на новое меню кнопки и помещение этой кнопки в переменную dm.
Set dm = newMenu.Controls.Add(Type:=msoControlButton)
'Присваиваем этой кнопке макрос, который должен выполняться при нажатии на неё.
dm.OnAction = "Макрос1"
'Создание названия кнопки.
dm.Caption = "Рубли"
Set nm = newMenu.Controls.Add(Type:=msoControlButton)
nm.OnAction = "Макрос2"
nm.Caption = "Доллар"
Set lm = newMenu.Controls.Add(Type:=msoControlButton)
lm.OnAction = "Макрос3"
lm.Caption = "Английский фунт"
Set km = newMenu.Controls.Add(Type:=msoControlButton)
km.OnAction = "Макрос4"
km.Caption = "Евро"
End Sub
Sub Макрос1()
    'Изменение формата выделенных ячеек.
    Selection.NumberFormat = "#,##0.00$"
End Sub
Sub Макрос2()
    Selection.NumberFormat = "[$$-409]#,##0.00"
End Sub
Sub Макрос3()
    Selection.NumberFormat = "[$?-809]#,##0.00"
End Sub
Sub Макрос4()
    Selection.NumberFormat = "[$?-2] #,##0.00"
End Sub