Sheet name posted on the sheet

John Schuler · Apr 2nd, 2002, 07:01 AM

I need to grab the names of each tab and post them on a worksheet

Dave Hawley · Apr 2nd, 2002, 07:32 AM

Hi John

Try this

Code:

Sub ListAllSheets()
Dim i As Integer

For i = 1 To Sheets.Count 'Includes chart sheets
    Sheets(1).Cells(i, 1) = Sheets(i).Name
Next i

End Sub

Ricky Morris · Apr 2nd, 2002, 08:51 AM

Try this:

=MID(CELL("filename"),FIND("]",D582,1)+1,1000)

Cosmos75 · Apr 3rd, 2002, 03:34 PM

Apr 2nd, 2002, 07:32 AM	#2
Dave Hawley Banned Join Date: Feb 2002 Posts: 1,582	Hi John Try this Code: Sub ListAllSheets() Dim i As Integer For i = 1 To Sheets.Count 'Includes chart sheets Sheets(1).Cells(i, 1) = Sheets(i).Name Next i End Sub

Apr 2nd, 2002, 08:51 AM	#3
Ricky Morris Board Regular Join Date: Mar 2002 Posts: 363	Try this: =MID(CELL("filename"),FIND("]",D582,1)+1,1000) __________________ It's never too late to learn something new. Ricky

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Apr 2nd, 2002, 07:01 AM	#1
John Schuler New Member Join Date: Apr 2002 Posts: 2	I need to grab the names of each tab and post them on a worksheet

Apr 3rd, 2002, 03:34 PM	#4
Cosmos75 Board Regular Join Date: Feb 2002 Location: Tulsa, OK Posts: 354	See link below.. http://www.mrexcel.com/board/viewtop...c=1038&forum=2