This inserts a new column in the active worksheet and lists all the worksheet names, using a row for each name. Useful if you have lots of worksheets names that you want to reference accurately.

Sub SheetNames()
Columns(1).Insert
    For i = 1 To Sheets.Count
        Cells(i, 1) = Sheets(i).Name
    Next i
End Sub