Copy title in cells

[Dookie]

If anyone could help me please

I would like the name of my excelbook or the name of the worksheet to be copied in a specific cell into the same Excelbook , in order to avoid rewriting whenever i open a new workbook.(new file)
Thank u in advance for your support....

 

[Trevor G]

you could use some code like this

Sub CheckName1()
range("B2")=activeworkbook.name
range("B3")=activesheet.name
End Sub

 

[Dookie]

Friend, could you please send me an example to understand this??????

Bookname: May 2011
Worksheet name: No1
Cell (A) code: ????
Mention that i don't want to write every time the name of the book, but to be automatically inserted in the cell...
Thank u

 

[VoG]

Try like this: the file must be saved first for this to work

Excel Workbook
	A
1	May.xlsm
2	",CELL("filename",A1)))]Data
Data

 

[Dookie]

It didn't work my friend....
I think because i use excel 2003... do you have any more ideas????
anyway, thank in advance!!!

 

[VoG]

It works in all versions of Excel but the file must be saved first before you add those formulas.

 

[Dookie]

Sorry to disturb you, but i'll tell you what i'm doin', so please tell me what i did wrong:

I opened a new excelbook and wrote down:
<table border="1" cellpadding="0" cellspacing="0"><tbody><tr style="background-color: rgb(202, 202, 202); text-align: center; font-weight: bold; font-size: 8pt;"><td style="border: 3px outset rgb(240, 240, 240);">A</td></tr><tr style="height: 18px;"><td style="border-style: outset; border-color: rgb(240, 240, 240); background-color: rgb(202, 202, 202); text-align: center;">1</td><td>May.xlsm</td></tr><tr style="height: 19px;"><td style="border-style: outset; border-color: rgb(240, 240, 240); background-color: rgb(202, 202, 202); text-align: center;">2</td><td style="font-family: Arial Unicode MS; font-size: 10pt;">Data</td></tr></tbody></table> then i save and close the book.

then open my book that i want my data to be appear, and writing down in two different cells the two codes that you gave me....
None of them appear to work... it gives an alarm of syntax. I 've doubled checked the code you gave me and i've copied it exactly the same.
I changed the commas (before the A1)with ; , but still didn't work.

Thank u in advance for you support friend...

 

[VoG]

Start a new workbook. Save it. Enter the formulas that I gave you. Save it again.

 

[Dookie]

You mean this, right?<table border="1" cellpadding="0" cellspacing="0"><tbody><tr style="background-color: rgb(202, 202, 202); text-align: center; font-weight: bold; font-size: 8pt;"><td> </td><td style="border: 3px outset rgb(240, 240, 240);">A</td></tr><tr style="height: 18px;"><td style="border-style: outset; border-color: rgb(240, 240, 240); background-color: rgb(202, 202, 202); text-align: center;">1</td><td>May.xlsm</td></tr><tr style="height: 19px;"><td style="border-style: outset; border-color: rgb(240, 240, 240); background-color: rgb(202, 202, 202); text-align: center;">2</td><td style="font-family: Arial Unicode MS; font-size: 10pt;">Data</td></tr></tbody></table>

Done it... Next?

 

[VoG]

Next what? It looks like you simply copied what I had written in the cells. You need to enter the Formulas.