设置单元格的名称等于相邻单元格的值

我有两列的数据：第一个string，如“名称1”，“名称2”，…，相邻列有数据，但我想重命名该列中的单元格等于第一列的string值。 例如：

1 2 A name1 x B name2 y 

因此，单元格A2应该达到name =“name1”。

 Sub nameCells() Worksheets("Output").Cells(1, "A").Name = "David" End Sub 

此代码将命名单元格A1 =“大卫”，但我无法弄清楚如何复制单元格的值，而不是硬编码的“大卫”。

Answer 1

 Sub nameCells() Worksheets("Output").Cells(1, "B").Name = Worksheets("Output").Cells(1, "A").Value End Sub