File name in Footer without ".xls"

  • Thread starter Thread starter Igor
  • Start date Start date
I

Igor

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.
 
Go to start | my computer | tools | folder options | view tab | tick
the option hide extension for known file types | apply | ok

now go to page setup | header / footer tab | custom footer | choose
file name | ok | ok
 
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.
Click to expand...

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
 
Thank you very much!

--

igor


muddan madhu said:
Go to start | my computer | tools | folder options | view tab | tick
the option hide extension for known file types | apply | ok

now go to page setup | header / footer tab | custom footer | choose
file name | ok | ok
Click to expand...
 
Thanks a lot!

--

igor


Ron Rosenfeld said:
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
Click to expand...
 
Back
Top