Sheet Names and Cell References

[Reed]

Hi,

I am using the formula below and others like it to extract certain data from
a single workbook into several different workbooks. I have multiple sets of
information that are all on different sheets, but the workbook name and cell
location remain the same.

Instead of changing the "345KV CANIFF STEPHENS" portion of my formula 20
times per new workbook, I would like to be able to use a formula that would
get the sheet name from cell A1. How can I do this?

='[345KV AND 120KV FOR ITC UPDATED 11-7-03.xls]345KV CANIFF STEPHENS'!$N5

I would also like to know if there is a way to list all of the sheet names
on one sheet.

Thanks,

Reed

 

[Jason Morin]

For your second question, try this macro to list all
worksheets:

Sub ListWSNames()
Dim sh As Worksheet
Dim i As Long

With ActiveWorkbook
.Worksheets(1).Select
Set sh = .Worksheets.Add
End With

With sh
For i = 2 To ActiveWorkbook.Worksheets.Count
.Cells(i, "A").Value = Worksheets(i).Name
Next i
.Cells(1, "A").Value = "Sheet Names (excl. this one)"
End With

Range("A:A").EntireColumn.AutoFit

End Sub