hi
Sub namesheets()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Cells(1, 1).Value = ws.Name
Next ws
msgbox Done
End Sub

"bmac" wrote:

I have a 50 page workbook. I would like to create a macro to copy each
Worksheet name into each of their perspective A1 cells.

A1 in worksheet1 would display Worksheet1
A1 in worksheet2 would display Worksheet2

thank you
--
bmac