Write each sheet name to a worksheet

Hi

I am printing each worksheet name to the immediate window. How could I write each one to a cell in a workbooks worksheet?

Sub WriteToRngAllSheetNames()
 'ActiveWorkbook.Worksheets ThisWorkbook.Worksheets

    Dim sht As Worksheet
    For Each sht In ActiveWorkbook.Worksheets
    Debug.Print sht.Name
'         sht.Range("A1") = "Hello World"
    Next sht
 
End Sub

Hi & thank you Trevor that writes each one to the same cell. I wanted to amke a list of all worksheet names in the activesheet. How can I make Excel write each sheet name to an individual cell so I have a list of the names?

I wasn't sure exactly what you wanted. The amendment writes the name to cell A1 for the sheet, so not really the SAME cell ... same cell reference, different sheet.

ok I see what you are saying now

Dim x As Long
Dim TOCsht As Worksheet
Dim sht As Worksheet
    x = 1
    Set TOCsht = ActiveSheet
        For Each sht In ActiveWorkbook.Worksheets
            If sht.Name <> TOCsht.Name Then
            'Debug.Print sht.Name
                 TOCsht.Range("A" & x) = sht.Name
                 x = 1 + x
                 End If
        Next sht
End Sub

It works now. How did I do? Would you do it differantly