Hello Everyone

We want to change the footer when the save event occurs. To do so, we wrote our code in subroutine objApp_WorkbookBeforeSave . We have confirmed that the subroutine objApp_WorkbookBeforeSave gets executed when a workbook is saved by tracing the execution. Although, every statement in the subroutine gets executed, the footer does not change. Can someone please help

Following is our code in Subroutine WorkbookBeforeSave

Private Sub objXLApp_WorkbookBeforeSave(ByVal wbkSaveBook
As Excel.Workbook, ByVal blnSaveAsUI As Boolean,
Cancel As Boolean

Dim shtSheet As Objec
Dim strHeaderFooter As Strin


wbkSaveBook.ActiveSheet.Range("a1").Value = "india

' Put the footer into all sheet
For Each shtSheet In wbkSaveBook.Sheet


With shtSheet.PageSetu

.LeftHeader = "LH
.CenterHeader = "CH
.RightHeader = "RH
.LeftFooter = "LF
.CenterFooter = "CF
.RightFooter = "RF

End Wit

Next shtShee

End Su

We are using excel 2000

Thanks
Karthi

Works fine for me.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Karthik Palaniappan" wrote in message
...
Hello Everyone,

We want to change the footer when the save event occurs. To do so, we
wrote our code in subroutine objApp_WorkbookBeforeSave . We have confirmed
that the subroutine objApp_WorkbookBeforeSave gets executed when a workbook
is saved by tracing the execution. Although, every statement in the
subroutine gets executed, the footer does not change. Can someone please
help.


Following is our code in Subroutine WorkbookBeforeSave:


Private Sub objXLApp_WorkbookBeforeSave(ByVal wbkSaveBook _
As Excel.Workbook, ByVal blnSaveAsUI As Boolean, _
Cancel As Boolean)

Dim shtSheet As Object
Dim strHeaderFooter As String


wbkSaveBook.ActiveSheet.Range("a1").Value = "india"

' Put the footer into all sheets
For Each shtSheet In wbkSaveBook.Sheets


With shtSheet.PageSetup

.LeftHeader = "LH"
.CenterHeader = "CH"
.RightHeader = "RH"
.LeftFooter = "LF"
.CenterFooter = "CF"
.RightFooter = "RF"

End With

Next shtSheet

End Sub

We are using excel 2000.

Thanks,
Karthik

Hi Bob

Thank you for the quick response.

May I know the version number of Excel in your PC. for example, mine is Excel 2000 version 9.0.0.3822.

Thanks
Karthik

Karthik,

Mine is Excel 2000 version 9.0.3821 SR-1, XP pro.

But it seems straightforward what you are doing, so it should work.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Karthik Palaniappan" wrote in message
...
Hi Bob,

Thank you for the quick response.

May I know the version number of Excel in your PC. for example, mine is
Excel 2000 version 9.0.0.3822.

Thanks,
Karthik

Thanks Bob. You were right. The macro worked if IManage(Document Management System from www.interwoven.com) was uninstalled.

"Bob Phillips" wrote:

Karthik,

Mine is Excel 2000 version 9.0.3821 SR-1, XP pro.

But it seems straightforward what you are doing, so it should work.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Karthik Palaniappan" wrote in message
...
Hi Bob,

Thank you for the quick response.

May I know the version number of Excel in your PC. for example, mine is
Excel 2000 version 9.0.0.3822.

Thanks,
Karthik