Prev: FIX FOR =N/A errors from EOMONTH
Next: How to run an event upon changing the value of a specific cell?
From: Need Macro::Consolidating 500 sheets in on 23 Feb 2010 02:32
1.I have 50 Sheets naming with employee names. Is there any option to get all
Sheet names in one sheet.
2.And can i give link between them, means if i change the name in the sheet,
can it be changed in the sheet name also.

Kindly help me in this?
From: Eduardo on 23 Feb 2010 07:58
Hi,
you can get it with a macro

'list of sheet names starting at A1 on new sheet
Sub Sheet_Names()
Dim ws As Worksheet
With Worksheets.Add
.Name = "Sheet Names"
.Move before:=Worksheets(1)
End With
Sheets("Sheet Names").Activate
Range("a1").Activate
For Each ws In Worksheets
If ws.Name <> "Sheet Names" Then
ActiveCell.Formula = ws.Name
ActiveCell.Offset(1, 0).Select
End If
Next

End Sub



"Need Macro::Consolidating 500 sheets in" wrote:

> 1.I have 50 Sheets naming with employee names. Is there any option to get all
> Sheet names in one sheet.
> 2.And can i give link between them, means if i change the name in the sheet,
> can it be changed in the sheet name also.
>
> Kindly help me in this?
 | 
Pages: 1
Prev: FIX FOR =N/A errors from EOMONTH
Next: How to run an event upon changing the value of a specific cell?