Store sheet name in a cell on the sheet

[Trebor Retrac]

I wish to store the sheet name in a cell on the sheet.
I.E. Sheet Name is 14, Cell A2 to contain 14.
Using Excel 2000.

 

[crispbd]

VBA would allow this:

Cells(1,1).value = activesheet.Nam

 

[RagDyeR]

Enter this in any cell of an *already saved* sheet:

=MID(CELL("Filename",A1),FIND("]",CELL("Filename",A1))+1,255)
--

HTH,

RD
==============================================
Please keep all correspondence within the Group, so all may benefit!
==============================================



I wish to store the sheet name in a cell on the sheet.
I.E. Sheet Name is 14, Cell A2 to contain 14.
Using Excel 2000.

 

[Trebor Retrac]

Thank You RagDyeR, This answer is just what I needed!

 

[RagDyer]

Thanks for the feed-back.
--


Regards,

RD

 

[Nicholas]

This is what I am looking for.

I am also wanting to expand this one more step.
I would like to add some text to the end of this string.

Any ideas?

Thanks

 

[Ken Wright]

=Formula_You_Were_Given&" - Text in Here"

eg

=MID(CELL("Filename",A1),FIND("]",CELL("Filename",A1))+1,255)&" - Text in
Here"

--
Regards
Ken....................... Microsoft MVP - Excel
Sys Spec - Win XP Pro / XL 97/00/02/03

------------------------------­------------------------------­----------------
It's easier to beg forgiveness than ask permission
------------------------------­------------------------------­----------------

This is what I am looking for.

I am also wanting to expand this one more step.
I would like to add some text to the end of this string.

Any ideas?

Thanks

Enter this in any cell of an *already saved* sheet:

=MID(CELL("Filename",A1),FIND("]",CELL("Filename",A1))+1,255)
--

HTH,

RD
==============================================
Please keep all correspondence within the Group, so all may benefit!
==============================================



message
I wish to store the sheet name in a cell on the sheet.
I.E. Sheet Name is 14, Cell A2 to contain 14.
Using Excel 2000.