Utilities for an excel book

[Contro]

I have an excel book with many sheets.
I would like to list, in the more easy way, the sheets to a txt file or similar

How can I do this ?

Best Regards

[katykaty]

ASAP Utilities has a function to create an index sheet with named links to each worksheet. You could easily take that list, select and copy all, and paste as values.

http://www.asap-utilities.com/

[Contro]

ASAP Utilities has a function to create an index sheet with named links to each worksheet. You could easily take that list, select and copy all, and paste as values.

http://www.asap-utilities.com/

Really ?
Running to try

[Contro]

simply wonderful

[TaoPhoenix]

ASAP Utilities has a function to create an index sheet with named links to each worksheet. You could easily take that list, select and copy all, and paste as values.

http://www.asap-utilities.com/

Heh yep! But I don't have Excel here at home so I didn't jump in, but I recall using it at work to do a few other things!

[Target]

if you don't want the overhead of a(nother) addin here's a bit of vba code that will do the same thing

Code

Sub addlinks()
Dim rowno As Integer, i As Integer
rowno = 2

Worksheets.Add before:=Sheets(1)

For i = 2 To Worksheets.Count
    Sheets(1).Hyperlinks.Add Anchor:=ActiveSheet.Cells(rowno, 2), Address:="", SubAddress:="'" & Sheets(i).Name & "'!A1", TextToDisplay:=Sheets(i).Name
    rowno = rowno + 1
Next i

End Sub

[TaoPhoenix]

if you don't want the overhead of a(nother) addin here's a bit of vba code that will do the same thing

Maybe, but as I begin to understand Contro, he's the kind of fella who wants a lot of cool new tricks. For him I'd recommend the Utilities because if he pokes around he might find answers to random things he hasn't asked us yet.

[Target]

so you're heading him off at the pass?

[TaoPhoenix]

so you're heading him off at the pass?

Just a little! : )

[Contro]

if you don't want the overhead of a(nother) addin here's a bit of vba code that will do the same thing

Code

Sub addlinks()
Dim rowno As Integer, i As Integer
rowno = 2

Worksheets.Add before:=Sheets(1)

For i = 2 To Worksheets.Count
    Sheets(1).Hyperlinks.Add Anchor:=ActiveSheet.Cells(rowno, 2), Address:="", SubAddress:="'" & Sheets(i).Name & "'!A1", TextToDisplay:=Sheets(i).Name
    rowno = rowno + 1
Next i

End Sub

work very well.

[katykaty]

Glad it worked.

Now, for your next Excel project:

https://www.youtube.com/watch?v=canLENvTD8E

[Contro]

Glad it worked.

Now, for your next Excel project:

https://www.youtube.com/watch?v=canLENvTD8E

Really wonderful and powerful. Excel getting a graphic environment like BLENDER (more or less.....)

[Curt]

if he pokes around he might find answers to random things he hasn't asked us yet.

more things, he hasn't asked us yet ?!  

[Contro]

if he pokes around he might find answers to random things he hasn't asked us yet.

more things, he hasn't asked us yet ?! 

Curt is right . I have assumed my ignorance. Beware of Contro  !!!!!!!!!!!!!!!!!!!

[Curt]

at least beware of the blender!!

[AndyM]

if you don't want the overhead of a(nother) addin ....

... but as far as Excel goes, ASAP Utilities is not just another addin, it's the addin.