从Harvey提供的链接粘贴代码，然后在代码中调整以下行：

UserForms("UserForm" & i).Show  ****THIS is what doesn't work

致：

ShowAnyForm ("UserForm" & i)

这是一个伟大的链接哈维，我已经书签!

你可以使用经常被忽视的VBA.UserForms对象。参见this link，它完整地描述了你需要做什么。
我在这里解释是没有意义的。
哈维

我从来没有遇到过@Harvey提到的方法（尽管我喜欢它），所以我会使用某种Select Case语句：

Select Case .Cells(1,1).Value
    Case 1:
        FormOne.Show
    Case 2:
        FormTwo.Show
    ' And so on and do forth...
    Case Else:
        MsgBox ("Invalid entry")
End Select

至少比17个If语句简单。

最简单的方法是这个：

Dim activeuf as Object
Set activeuf = UserForm & i
activeuf.show

也许它对提问的人不起作用，但我相信它对将来检查这个问题的人会有帮助

获取由字符串名称定义的UserForm对象

Function Form(Name As String) As Object
  Set Form = CallByName(UserForms, "Add", VbMethod, Name)
End Function

Sub Test()
  Dim strFormName As String
  strFormName = "UserForm1"  ' <-- replace by your lookup code instead
  Form(strFormName).Show
End Sub

这里有一个“更快”的代码打开的形式（饶Haribabu演变）：

Dim forMy
Set forMy = CallByName(UserForms, "Add", VbMethod, formName) ' formName is the form name to open
forMy.Show