运行时错误'9'VBA

Question

    Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Dim FundN As Range
    Set FundN = ActiveCell

    'Add worksheet and name it using the value/text of the hyperlink cell on Sheet1
    Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = FundN.Value

    'Input data on created worksheet
    With Worksheets(FundN.Value)
        .Range("A5").Value = "Data"
    End With
    End Sub

计划：单击超链接，这将添加新工作表并使用超链接单元格的值对其进行命名。 然后在新创建的图纸上输入数据。

问题： With Worksheets(FundN.Value)行上的运行时错误9。 确认新工作表已创建并在错误之前正确命名。

恳求：不了解创建表如何没有问题，但是找到新表却有问题。 请帮助我摆脱这个错误。 谢谢！

Answer 1

如果FindN.Value是数字，则引用实际上可能失败，甚至可能指向错误的工作表。 这是因为当您传递数字或字符串时， WorkSheets行为有所不同。 如果传递了数值，则将其解释为索引，该索引可能超出范围（错误9）。

当您打算传递名称而不是索引时，请确保传递字符串。 您可以使用CStr强制执行此操作：

With Worksheets(CStr(FundN.Value))