将单元格内容设置为工作表名称

Question

那里有专家的简单问题。

试图找出如何使用单元格A1 = sheetname。

我尝试了以下操作，但遇到了编译错误

y = Sheetname()

Range(A1) = y

Answer 1

ActiveSheet.Range("A1") = ActiveSheet.Name

如果你想要每张纸，那么

Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    ws.Range("A1") = ws.Name
Next