運行時錯誤'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))