通过超链接打开用户表单

Question

我一直在努力使这里工作。我的工作表有两列。使用数据验证，列A上的每个单元格都有五个预定值的列表。 B列为空，允许人们键入所需的任何内容。我需要的是：每当有人从A列的cel列表中选择第三项时，B列旁边的单元格的内容应成为打开Userform1的超链接。 到目前为止，我在工作表模块中包含的内容：

    Dim VAR1 As Integer
    If Not Intersect(Target, Range("A1:A5000")) Is Nothing Then
       If Intersect(Target, Range("A1:A5000")) = "Third value" Then
          VAR1 = ActiveCell.Row
          Range("B" & VAR1).Select
          ActiveCell.Hyperlink.add ??????????????????
       End if
    End if

当我将带有地址的超链接添加到JPEG文件时，它可以正常工作，但是在将地址添加到用户表单时，我可能会丢失一些空引号或其他内容。 有什么帮助吗？ 谢谢！