Sub listshtnames()
For i = 1 To Sheets.Count
Cells(i, "f") = Sheets(i).Name
Next i
End Sub



"Momturbo" wrote:

I have a workbook with 20-plus worksheets, each of them with the name of a
different employee. Is there a quick way to make a directory of all the
named sheets?