have can i get tre result of a cell in the header or footer

[bossclaus]

hi

i need to make a sheet where the footer inludes the result if a cell

='Front page'!B15 , can i do it?

claus

 

[VoG]

This should help you http://support.microsoft.com/kb/273028

 

[bossclaus]

thanks it there a way that is comes on all sheets also new sheets.

 

[VoG]

For example

Sub UpdateFooter()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
   ws.PageSetup.LeftFooter = ws.Range("A1").Value
Next ws
End Sub

If you add new sheets you will need to run the code again.

 

[bossclaus]

can i make a macro that askes to be runned befor closing a workbook?

 

[VoG]

Try like this in the ThisWorkbook module

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim ws As Worksheet
If MsgBox("Update footers", vbYesNo + vbQuestion) = vbNo Then Exit Sub
For Each ws In ActiveWorkbook.Worksheets
   ws.PageSetup.LeftFooter = ws.Range("A1").Value
Next ws
End Sub