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?

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?

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?

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?

Store Jerry's macro and others you create and copy in your Personal.xls file
so's they are available for all open workbooks.

See help for more on Personal Macro Workbook.


Gord Dibben MS Excel MVP

On Thu, 17 May 2007 20:15:01 -0700, 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?

Mike, thank you. I'm learning.

"Mike" wrote:

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?

Gord,

Thank you for the extra tip.

Johnston
"Gord Dibben" wrote:

Store Jerry's macro and others you create and copy in your Personal.xls file
so's they are available for all open workbooks.

See help for more on Personal Macro Workbook.


Gord Dibben MS Excel MVP

On Thu, 17 May 2007 20:15:01 -0700, 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?