Excel Macro for the All the work sheet names

Excel Macro for the All the work sheet names


Sub SheetNames()
j = 1
ShitCount = Worksheets.Count
Sheets.Add.Name = "SHeetNames"
Columns(1).Insert
    For i = 1 To Sheets.Count
        Cells(i, 1) = Sheets(i).Name
    Next i
End Sub