VBA - вызов подпрограммы с использованием конкатенации строк

Question

возможно ли вызвать подпрограмму в VBA, используя объединение строк? Например

Sub Call_This_2019()
   ' do something
end sub

Sub From_this()
   Call ("Call_This_" + str(2019))
Sub

Мне не повезло с использованием этого подхода.

Answer 1

Я погуглил 'vba, вызывающую динамическую подпрограмму', и Я нашел это в http://www.vbaexpress.com/forum/showthread.php?36844-Solved-Dynamic-Procedure-call

Sub Call_This_2019()
   ' do something
   MsgBox ("Got here")
End Sub

Sub From_this()
    Dim theCallee As String
    theCallee = "Call_This_" & LTrim(Str(2019)) ' LTrim removes leading blank
    'Call theCallee         ' Syntax error
    'Call Eval(theCallee)   ' 2766 no Application object
    Application.Run theCallee
End Sub