vba - セルの内容をシート名に設定

Question

専門家のための簡単な質問です。

セル A1 = シート名にする方法を見つけようとしています。

以下を試してみましたが、コンパイルエラーが発生しました

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