Worksheet Tab names?

C

Chris Mitchell

Within a Workbook can I arrange things such that the Worksheet Tab name is
taken and maintained from a cell within the same Worksheet, or better yet an
index of Worksheet Tab names in a master Worksheet? If so How?



TIA.



Chris.
 
J

Jim Cone

Chris,
The free Excel add-in "XL Extras" can create a table of contents for you.
It puts a list of every sheet name on a new worksheet with each name
hyperlinked to the actual sheet.
The program will also sort sheets and do other nice stuff.
Download from... http://www.realezsites.com/bus/primitivesoftware
No registration required.
--
Jim Cone
San Francisco, USA



"Chris Mitchell"
<[email protected]>
wrote in message
Within a Workbook can I arrange things such that the Worksheet Tab name is
taken and maintained from a cell within the same Worksheet, or better yet an
index of Worksheet Tab names in a master Worksheet? If so How?
TIA.
Chris.
 
D

Don Guillett

Sub listsheets()
For i = 1 To Worksheets.Count
'MsgBox Sheets(i).Name
Cells(i + 1, "a") = Sheets(i).Name
Next i
End Sub
 
C

Chris Mitchell

Thanks Jim.

I'll have look at this.

Not sure I explained particularly well what I want, see 'Auto renaming of
Worksheets?' for an update.
 
C

Chris Mitchell

Thanks Don.

I'm sure what you've suggested would work, but I'm not sufficiently
experienced to understand or implement it.

I presume it's a sub routine, but I've no idea how to compile or use one.

Not sure I explained particularly well what I want, see 'Auto renaming of
Worksheets?' for an update.
 
B

Brian

I just cometed code to tdo this exact thing for a log I'm keeping within a workbook with a number of tabs.

The code probably it's the most efficent but it works.

Option Explicit
Dim strName As String, strAddress As String
Dim sheet As Worksheet, k As Integer, j As Integer

Private Sub Workbook_Open()
Sheets("apptrack").Select
Range("C10").Select
Call list
Call KeyFont
End Sub
Sub list()
For Each sheet In ThisWorkbook.Worksheets
strName = sheet.Name
Sheets("apptrack").Activate
ActiveCell.Value = strName
ActiveCell.Offset(1, 0).Select
Call DateCheck
Sheets("apptrack").Activate
'I keep track of the number of tabs b/c I put the
'index in columns of 15
k = k + 1
Select Case k
Case 15
ActiveCell.Offset(-15, 3).Select
Case 16 To 29
GoTo MyLoop
Case 30
ActiveCell.Offset(-15, 3).Select
Case 31 To 44
GoTo MyLoop
Case 45
ActiveCell.Offset(-15, 3).Select
Case 46 To 59
GoTo MyLoop
Case 60
ActiveCell.Offset(-15, 3).Select
Case 61 To 74
GoTo MyLoop
Case 75
ActiveCell.Offset(-15, 3).Select
Case 76 To 89
GoTo MyLoop
Case 90
ActiveCell.Offset(-15, 3).Select
Case 91 To 104
GoTo MyLoop
Case 105
ActiveCell.Offset(-15, 3).Select
Case Is > 105
GoTo MyLoop
MyLoop:
End Select
If ActiveCell.Value = "Careerfest06" Then
End
End If
Next sheet
End Sub

Have a great day,
Brian

EggHeadCafe.com - .NET Developer Portal of Choice
http://www.eggheadcafe.com
 
Top