Tab Name in Cells

[LAS]

I have 68 sheets within a workbook in which I named 1, 2, 3 etc.. All the
sheets are formatted the same ready for data to be entered, and I would like
to be able to assign the tab name to one of my cells for each worksheet as
you can do in the Header Footer.

Rather than the typist having to type in Panel # on every sheet, I would
like for it to reference the sheet nuimbery help would be greatly appreciated.

Thanks

[[email protected]]

LAS wrote...
>I have 68 sheets within a workbook in which I named 1, 2, 3 etc.. All
the
>sheets are formatted the same ready for data to be entered, and I
would like
>to be able to assign the tab name to one of my cells for each
worksheet as
>you can do in the Header Footer.
....

See http://www.contextures.com/xlfaqFun.html#SheetName

[[email protected]]

LAS wrote...
>I have 68 sheets within a workbook in which I named 1, 2, 3 etc.. All
the
>sheets are formatted the same ready for data to be entered, and I
would like
>to be able to assign the tab name to one of my cells for each
worksheet as
>you can do in the Header Footer.
....

See http://www.contextures.com/xlfaqFun.html#SheetName .

[[email protected]]

LAS wrote...
>I have 68 sheets within a workbook in which I named 1, 2, 3 etc.. All
the
>sheets are formatted the same ready for data to be entered, and I
would like
>to be able to assign the tab name to one of my cells for each
worksheet as
>you can do in the Header Footer.
....

See http://www.contextures.com/xlfaqFun.html#SheetName .

[kraljb]

Sub TabName()
Dim i As Integer
Dim iMax As Integer

i = 1
iMax = Worksheets.Count

While i <= iMax
Worksheets(i).Range("A1").Value = Worksheets(i).Name
i = i + 1
Wend

End Sub