Thread: Worksheet names
View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.misc
Mike Mike is offline
external usenet poster
 
Posts: 3,101
Default Worksheet names

You can put the code that JLatham provided you into a Module in your
Personal .xls workbook and this would allow you to run the code in any
workbook.

Hope this helps

"johnston" wrote:

This worked fantastically well. Thank you!

Is there a way to make this available in all my workbooks?

"JLatham" wrote:

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?