是否可以在Excel VBA中将函数或sub作为参数传递？

Question

I want to pass a function/sub name as an argument so that I can call it within another function/sub in Excel VBA. Is this possible? If so, what is the type I set it as? I tried setting as Variant but that didn't work. I'm not sure what else to try.

Here is a basic outline of the code I'm working on. Including my failed attempt at using Variant.

As you can see I'm trying to have waitingBBG check a different range each time and then call a different sub each time. That's why I want to be able to specify which sub to call after waitingBBG is done.

Update: I updated the code with Application.Run instead of Call

Sub part_1
    Dim calculation_rng as String
    calculation_rng = "A1"

    Call waitingBBG(calculation_rng, "part_2")
End Sub

Sub waitingBBG(calculation_rng As String, call_id As Variant)

    If Application.WorksheetFunction.CountIfs(Range(calculation_rng), "#N/A Requesting Data...") > 0 Then
        'Check every 1 second
        Application.OnTime Now + TimeValue("00:00:01"), "waitingBBG"
    Else
        'Call rest of code
        Application.Run "'my_addin.xlam'!" & call_id
    End If

End Sub

Sub part_2
    Dim calculation_rng as String
    calculation_rng = "B1"

    Call waitingBBG(calculation_rng, "part_3")

End Sub

Sub part_3
    Msgbox("Success")
End Sub

Answer 1

@MathieuGuindon provided the correct solution. Thank you!

Basically, I needed to pass the function name as a string and use Application.Run instead of Call

Also,

Application.OnTime Now + TimeValue("00:00:01"), "waitingBBG"

needed to be changed to

Application.OnTime Now + TimeValue("00:00:01"), "'waitingBBG """ & calculation_rng & """,""" & call_id & "'"

to reflect the changes.

Answer 2

Sub sub1()
Dim a As String
a = "hii"
sub2 (a)
End Sub
Sub sub2(val As String)
If val = "hi" Then

MsgBox (val)
Else
MsgBox ("sub2 else")
sub3 (val)
End If
End Sub

Sub sub3(val1 As String)
MsgBox (val1)
End Sub