Sheet name posted on the sheet

[John Schuler]

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

 

[Dave Hawley]

Hi John


Try this

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]

Try this:

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

 

[Cosmos75]

See link below..

http://www.mrexcel.com/board/viewtopic.php?topic=1038&forum=2