根据单元格值重命名单元格引用

Question

我有兴趣重命名文档的单元格引用，以便在其他工作表中轻松执行计算。在下面的代码中，我试图将单元格Di命名为Ci和year的串联文本。我正在使用以下代码并收到错误消息：

  

未定义子函数或功能

有什么想法吗？

Sub Rename()

Dim ws As Worksheet
Set ws = ThisWorkbook.ActiveSheet

For i = 1 To 50

    Dim rng As Range
    Dim str As String

    Set rng = Range("D" & i)
    rng.Name = Range("C" & i) & "_" & "2019"

Next i

End Sub