Назначить макрос в выпадающем списке и запустить с помощью кнопки

Question

Я создал несколько макросов, которые генерируют ID. Теперь мне нужно поместить их в выпадающий список, который нужно выбрать.

Идея состоит в том, что я вставлю кнопку (назовем ее GENERATE) и выпадающим списком 1 ячейку над кнопкой. По мере изменения значения в выпадающем списке кнопка GENERATE будет генерировать ID другой формулы. Вот мои коды, хотя я не уверен, что, если они правы ..

Sub GenerateID() 
Dim macroName As String 
macroName = Range("A4").Value 

If macroName = NRIC Then 
    Application.Run (GenerateNRICFIN) 
ElseIf macroName = FIN Then 
    Application.Run (GenerateFIN) 
ElseIf macroName = RB Then 
    Application.Run (GenerateRB) 
ElseIf macroName = RB2 Then 
    Application.Run (GenerateRB2) 
ElseIf macroName = RB3 Then 
    Application.Run (GenerateRB3) 
ElseIf macroName = RB4 Then 
    Application.Run (GenerateRB4) 
ElseIf macroName = RB5 Then 
    Application.Run (GenerateRB5) 
ElseIf macroName = RC Then 
    Application.Run (GenerateRC) 
ElseIf macroName = RC2 Then 
    Application.Run (GenerateRC2) 
ElseIf macroName = RC3 Then 
    Application.Run (GenerateRC3) 
ElseIf macroName = RC4 Then 
    Application.Run (GenerateRC4) 
ElseIf macroName = RC5 Then 
    Application.Run (GenerateRC5) 
ElseIf macroName = RC6 Then 
    Application.Run (GenerateRC6) 
End If 
End Sub 

Answer 1

Используйте это:

Sub GenerateID() 
Dim macroName As String 
'macroName = Range("A4").Value 
macroName = ThisWorkbook.Sheets("Sheet1").Range("A4").Value 

IF (macroName = "NRIC") then macroName = "NRICFIN" 

Application.Run "Generate" & macroName 

END Sub 

Вместо всех if-заявления.