View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.misc
mge mge is offline
external usenet poster
 
Posts: 8
Default Can you create a dynamic footer in Excel?

I was able to come up with code that does this. See Below:

This code goes in the VBAProject Workbook section

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Wks As Worksheet
Dim stFullFileName As String
Dim stCompanyName As String

stCompanyName = Worksheets("Sheet1").Range("G19").Value
stFullFileName = ThisWorkbook.FullName
For Each Wks In ThisWorkbook.Worksheets
With Wks.PageSetup
.LeftFooter = stCompanyName
.CenterFooter = ""
.RightFooter = ""
End With
Next Wks

End Sub




--
mgelde


"mge" wrote:

I would like to include a footer that reads from the sheet being printed.
Does anyone know of a practical way to do this?
--
mgelde