Custom Footer
Custom Footer
(OP)
Is it possible to have a footer appear on the last page only.
Sometimes there will be one page, and other times there will be two pages.
It doesn't have to be a footer, but perhaps code to insert text on last page only.
Many thanks
Sometimes there will be one page, and other times there will be two pages.
It doesn't have to be a footer, but perhaps code to insert text on last page only.
Many thanks





RE: Custom Footer
A very rudimentary method could be (after having defined a Print_Area using "File - Print_Area - Set Print_Area" with some spare rows for footer):
Private Sub Worksheet_Activate()
b$= ActiveSheet.PageSetup.PrintArea
k=Range(b$).Rows.Count \ 52 ' assuming 52 rows per page
[A1].Offset(52*k +15, 1)="THIS IS MY FOOTER !" ' 15 rows
End Sub
Hope it helps
_LF