Export the Contents list in `File Properties´ box
 

How can one export or save the Contents list (on the `Contents´ tab)
of the File Properties box? I have dozens of DATA and Chart worksheets
present and would like to export for an `index´.

-G

Export the Contents list in `File Properties´ box
 

Gregory

If you want a list of the worksheets and chartsheets in a workbook............

Insert a new sheet then run this macro.

Private Sub ListSheets()
'list of sheet names starting at A1
Dim rng As Range
Dim i As Integer
Set rng = Range("A1")
For Each Sheet In ActiveWorkbook.Sheets
rng.Offset(i, 0).Value = Sheet.Name
i = i + 1
Next Sheet
End Sub


Gord Dibben MS Excel MVP


On 12 Feb 2007 11:32:45 -0800, "Gregory" wrote:

How can one export or save the Contents list (on the `Contents´ tab)
of the File Properties box? I have dozens of DATA and Chart worksheets
present and would like to export for an `index´.

-G

Export the Contents list in `File Properties´ box
 

Thanks.. now I must read HELP file on how to implement the macro
code. :))

-Gregory

On Feb 12, 3:17 pm, Gord Dibben <gorddibbATshawDOTca wrote:
Gregory
If you want a list of the worksheets and chartsheets in a workbook...
Insert a new sheet then run this macro.

Private Sub ListSheets()
'list of sheet names starting at A1
Dim rng As Range
Dim i As Integer
Set rng = Range("A1")
For Each Sheet In ActiveWorkbook.Sheets
rng.Offset(i, 0).Value = Sheet.Name
i = i + 1
Next Sheet
End Sub

Gord Dibben MS Excel MVP

On 12 Feb 2007 11:32:45 -0800, "Gregory" wrote:



How can one export or save the Contents list (on the `Contents´ tab)
of the File Properties box? I have dozens of DATA and Chart worksheets
present and would like to export for an `index´.

-G- Hide quoted text -

- Show quoted text -

Export the Contents list in `File Properties´ box
 

Sorry about that Gregory. I usually post this along with the code but too much
hurry this AM

If not familiar with VBA and macros, see David McRitchie's site for more on
"getting started".

http://www.mvps.org/dmcritchie/excel/getstarted.htm

In the meantime..........

First...create a backup copy of your original workbook.

To create a General Module, hit ALT + F11 to open the Visual Basic Editor.

Hit CRTL + r to open Project Explorer.

Find your workbook/project and select it.

Right-click and InsertModule. Paste the code in there. Save the
workbook and hit ALT + Q to return to your workbook.

Run the macro by going to ToolMacroMacros.

You can also assign this macro to a button or a shortcut key combo.


Gord

On 12 Feb 2007 13:59:14 -0800, "Gregory" wrote:


Thanks.. now I must read HELP file on how to implement the macro
code. :))

-Gregory

On Feb 12, 3:17 pm, Gord Dibben <gorddibbATshawDOTca wrote:
Gregory
If you want a list of the worksheets and chartsheets in a workbook...
Insert a new sheet then run this macro.

Private Sub ListSheets()
'list of sheet names starting at A1
Dim rng As Range
Dim i As Integer
Set rng = Range("A1")
For Each Sheet In ActiveWorkbook.Sheets
rng.Offset(i, 0).Value = Sheet.Name
i = i + 1
Next Sheet
End Sub

Gord Dibben MS Excel MVP

On 12 Feb 2007 11:32:45 -0800, "Gregory" wrote:



How can one export or save the Contents list (on the `Contents´ tab)
of the File Properties box? I have dozens of DATA and Chart worksheets
present and would like to export for an `index´.

-G- Hide quoted text -

- Show quoted text -

Export the Contents list in `File Properties´ box
 

On Feb 12, 6:29 pm, Gord Dibben <gorddibbATshawDOTca wrote:
Sorry about thatGregory. I usually post this along with the code but too much
hurry this AM

If not familiar with VBA and macros, see David McRitchie's site for more on
"getting started".

http://www.mvps.org/dmcritchie/excel/getstarted.htm

In the meantime..........

First...create a backup copy of your original workbook.

To create a General Module, hit ALT + F11 to open the Visual Basic Editor.

Hit CRTL + r to open Project Explorer.

Find your workbook/project and select it.

Right-click and InsertModule. Paste the code in there. Save the
workbook and hit ALT + Q to return to your workbook.

Run the macro by going to ToolMacroMacros.

You can also assign this macro to a button or a shortcut key combo.

Gord

On 12 Feb 2007 13:59:14 -0800, "Gregory" wrote:





Thanks.. now I must read HELP file on how to implement the macro
code. :))

-Gregory

On Feb 12, 3:17 pm, Gord Dibben <gorddibbATshawDOTca wrote:
Gregory
If you want a list of the worksheets and chartsheets in a workbook...
Insert a new sheet then run this macro.

Private Sub ListSheets()
'list of sheet names starting at A1
Dim rng As Range
Dim i As Integer
Set rng = Range("A1")
For Each Sheet In ActiveWorkbook.Sheets
rng.Offset(i, 0).Value = Sheet.Name
i = i + 1
Next Sheet
End Sub

Gord Dibben MS Excel MVP

On 12 Feb 2007 11:32:45 -0800, "Gregory" wrote:

How can one export or save the Contents list (on the `Contents´ tab)
of the File Properties box? I have dozens of DATA and Chart worksheets
present and would like to export for an `index´.

-G

Hi.. and thank for this info.

I followed it `to the letter´ however the Macro doesn't show up
ANYWHERE in the Macro list when trying to run it. There doesn't seem
to be any syntax errors and the security is set to medium. It should
be easier that this!! :))

Please advise...

-Gregory