Worksheet names
 

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?

Worksheet names
 

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?

Worksheet names
 

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?

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?

Worksheet names
 

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?

Worksheet names
 

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?

Worksheet names
 

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?