Vba：向通过变量传递的命名范围添加注释

Question

当我尝试将注释分配给命名范围时，找不到“1004”运行时错误的答案。 我试图从名为范围的电子表格中的列表创建。在电子表格中，我在3列中提供“名称”，“范围”，“注释”，其中“名称”和“注释”是字符串，“范围”是公式，通常包含OFFSET。

Sample

Sub FromListCreateNamedRanges()
    Dim wks As Worksheet
    Dim i As Long
    Set wks = ThisWorkbook.Worksheets("Settings")
    For i = 2 To LastRow2(wks, 5)
        CreateNamedRanges wks.Cells(i, 5), wks.Cells(i, 6).Formula, wks.Cells(i, 7)
    Next
End Sub

Sub CreateNamedRanges(str_rngname As String, var_formula As Variant, Optional str_comment As String)
    ThisWorkbook.Names.Add Name:=str_rngname, RefersTo:=var_formula
    ThisWorkbook.Names(str_rngname).Comment = str_comment
End Sub

LastRow2是用于确定给定列的最后一行的用户函数。一切正常，无需使用

ThisWorkbook.Names(str_rngname).Comment = str_comment

使用上面的代码我收到一条错误消息。我将非常感谢您的帮助，建议和想法。