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.

--

igor

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


On Sep 25, 1:10*am, 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.

--

igor

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

Thank you very much!

--

igor


"muddan madhu" wrote:

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


On Sep 25, 1:10 am, 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.

--

igor

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