Is it possible to find the names of all worsheets and store in the first sheet

[manish.agrawal446@gmail.com]

Is it possible to find the names of all worsheets and store in the first sheet

 

[Hui]

Manish

Copy the following code into a code module in VBA and run

[pre]

Sub Sheet_Names()

Worksheets.Add before:=Sheet1
Set mysheet = ActiveSheet
i = 0
For Each sh In Sheets
i = i + 1
mysheet.Cells(i, 1).Value = sh.Name
Next sh
End Sub

[/pre]

 

[kchiba]

Hi


try the following macro: it will put the name of each sheet from the selected row down.


Sub GetSheets()


For Each ws In Worksheets

Selection = ws.Name

Selection.Offset(1, 0).Select

Next


End Sub

 

[shailyog]

or you can do in this way:

http://chandoo.org/forums/topic/addin-to-insert-name-of-all-sheets-in-one-worksheet

 

[manish.agrawal446@gmail.com]

Thanks a lot to everyone..