One way:

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Sh.Cells(1, 1).Value = Sh.Name
End Sub


In article . com,
"Paul Black" wrote:

Thanks for the Reply David,

How would I get the WorkSheet Name into Cell "A1" of EVERY Added
WorkSheet as a Value Please.

Thanks Again.
All the Best.
Paul