需要选择框编译错误的帮助

Question

我试图为用户输入生成一个选择框，当他们启动宏时，他们会在几个选项中进行选择，以更改输出的页脚。

我从互联网上为选择框提取了此代码示例，但得到了

“编译错误： 子或功能未定义”

Sub FooterTest123()
' creates variables
Dim varArrayList As Variant
Dim strSelected As String
' array for selection options
varArrayList = Array("value1", "value2", "value3")
strSelected = SelectionBoxSingle(List:=varArrayList, Prompt:="Select Location")
If Len(strSelected) > 0 Then
    Debug.Print strSelected
End If
End Sub

有人对我如何使此选择框起作用有任何想法吗？