如何在单元格区域中循环并使用vba中的单元格值命名单元格？

我有以下代码，它工作得很好，但是，我想循环一个单元格区域，并用单元格值命名该区域中的单元格：

Sub NameCell()
Range("A2").Name = Range("A2").Value
End Sub

尝试一下：

Sub NameMaker()
    For Each r In Selection
        With r
            .Name = .Value
        End With
    Next r
End Sub

请参阅此链接：