| Home |
| Search |
| Today's Posts |
|
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
File name in Footer without ".xls"
Thanks a lot!
-- igor "Ron Rosenfeld" wrote: On Wed, 24 Sep 2008 13:10:01 -0700, Igor wrote: Hi, Does anyone know how to eliminate the extension from the File Name added to the Footer? I want to add the File Name to the Footer but without the extension. Thanks in advance. You can use a Workbook Before Print event macro. To enter the macro, <alt-F11 opens the VB Editor. In the project that is your workbook, double click on ThisWorkbook, and paste the code below into the window that opens. ================================= Option Explicit Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.PageSetup.RightFooter = Left(ThisWorkbook.Name, _ InStrRev(ThisWorkbook.Name, ".") - 1) Next ws End Sub =============================== --ron |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Converting "uppercase" string data to "lower case" in CSV file | Excel Discussion (Misc queries) | |||
| text string: "91E10" in csv file auto converts to: "9.10E+11" | Excel Discussion (Misc queries) | |||
| Excel - Golf - how to display "-2" as "2 Under" or "4"as "+4" or "4 Over" in a calculation cell | Excel Discussion (Misc queries) | |||
| Lost "File Menu" - now it's "Edit / View / Insert.." but no "F | Excel Discussion (Misc queries) | |||
| Utility to "clean up" or "defrag" large Excel file | Excel Discussion (Misc queries) | |||
Threaded Mode
