各シートにシート名をA1セルに記載

Sub 各シートにシート名をA1セルに記載()
    Dim ws As Worksheet
    
    ' 各シートに対してループ
    For Each ws In Worksheets
        ' 各シートのA1セルにシート名を記載
        ws.Range("A1").Value = ws.Name
    Next ws
End Sub