在Excel中重命名工作表并引用另一个工作表VBA

Question

我想通过引用另一个工作表中的单元格的值来重命名我新添加的工作表.它看起来很简单,但它不起作用.

Sheets("TABLAK").Select
Sheets.Add
Dim ujfulneve As String
ujfulneve = Sheets("MENU").Range("B2").Value
Sheets(ActiveSheet).Name = ufjulneve

它为最后一行写入类型不匹配错误.你能帮我吗？

Answer 1

接受关于最大代码简化的Socii挑战,最短的代码是:

Worksheets.add.Name = Worksheets("MENU").Range("B2").value