Choose an empty sheet in the workbook and run this code:

Sub ListSheetNames()
Dim anySheet As Worksheet

Range("A1").Select
For Each anySheet in Worksheets
ActiveCell = anySheet.Name
ActiveCell.Offset(1, 0).Activate
Next
End Sub

To put the code where you can use it, press [Alt]+[F11] then choose Insert |
Module from the VB Editor menu. Cut and paste that code into the module and
then close the VB Editor and use Tools | Macro | Macros to choose and [Run]
the code.

"johnston" wrote:

How can I generate a list of the names of the worksheets in a workbook so
that I can write a brief description of what each does?