Print File Name

[mattski72]

I would like to have the file name update and print in a cell. I know how to get it to print in the header/footer area, but not in a cell. Thanks for your help.

 

[MrKowz]

Welcome to the forums!

Try:

<b>Excel 2007</b><table cellpadding="2.5px" rules="all" style=";background-color: #FFFFFF;border: 1px solid;border-collapse: collapse; border-color: #A6AAB6"><colgroup><col width="25px" style="background-color: #E0E0F0" /><col /></colgroup><thead><tr style=" background-color: #E0E0F0;text-align: center;color: #161120"><th></th><th>A</th></tr></thead><tbody><tr ><td style="color: #161120;text-align: center;">1</td><td style=";">TestFile.xlsm</td></tr></tbody></table><table cellpadding="2.5px" rules="all" style=";background-color: #FFFFFF;border: 1px solid;border-collapse: collapse; border-color: #A6AAB6"><thead><tr style="background-color: #E0E0F0;text-align: center;color: #161120"><th><b>Sheet1</b></th></tr></td></thead></table><br /><br /><table width="85%" cellpadding="2.5px" rules="all" style=";border: 2px solid black;border-collapse:collapse;padding: 0.4em;background-color: #FFFFFF" ><tr><td style="padding:6px" ><b>Worksheet Formulas</b><table cellpadding="2.5px" width="100%" rules="all" style="border: 1px solid;text-align:center;background-color: #FFFFFF;border-collapse: collapse; border-color: #A6AAB6"><thead><tr style=" background-color: #E0E0F0;color: #161120"><th width="10px">Cell</th><th style="text-align:left;padding-left:5px;">Formula</th></tr></thead><tbody><tr><th width="10px" style=" background-color: #E0E0F0;color: #161120">A1</th><td style="text-align:left">=MID(<font color="Blue">CELL(<font color="Red">"filename"</font>),FIND(<font color="Red">"[",CELL(<font color="Green">"filename"</font>)</font>)+1,FIND(<font color="Red">"]",CELL(<font color="Green">"filename"</font>)</font>)-FIND(<font color="Red">"[",CELL(<font color="Green">"filename"</font>)</font>)-1</font>)</td></tr></tbody></table></td></tr></table><br />

 

[Datsmart]

=MID(CELL("filename"), FIND("[", CELL("filename"))+1, FIND("]", CELL("filename"))- FIND("[", CELL("filename")) -1)

If you have more that one workbook open, the above formula displays the name of the last workbook altered.
The below formula will display the workbook name that the formula exist in.

=REPLACE(LEFT(CELL("filename",A1),FIND("]",CELL("filename",A1))-1),1,FIND("[",CELL("filename",A1)),"")

-or- without the ".xlsm"

=REPLACE(LEFT(CELL("filename",A1),FIND("]",CELL("filename",A1))-6),1,FIND("[",CELL("filename",A1)),"")

 

[MrKowz]

=MID(CELL("filename"), FIND("[", CELL("filename"))+1, FIND("]", CELL("filename"))- FIND("[", CELL("filename")) -1)

If you have more that one workbook open, the above formula displays the name of the last workbook altered.
The below formula will display the workbook name that the formula exist in.

=REPLACE(LEFT(CELL("filename",A1),FIND("]",CELL("filename",A1))-1),1,FIND("[",CELL("filename",A1)),"")

-or- without the ".xlsm"

=REPLACE(LEFT(CELL("filename",A1),FIND("]",CELL("filename",A1))-6),1,FIND("[",CELL("filename",A1)),"")

Thanks for catching that!