Write each sheet name to a worksheet

[xlBunny]

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