Hi,
This is maybe a stupid question but I don't know how to do it.
Is it possible to change the textheight of my fullpath in footer (with VBA Excel) without changing my default textheigt settings?
ActiveSheet.PageSetup.LeftFooter = Me.FullName
Tanx
Hi,
This is maybe a stupid question but I don't know how to do it.
Is it possible to change the textheight of my fullpath in footer (with VBA Excel) without changing my default textheigt settings?
ActiveSheet.PageSetup.LeftFooter = Me.FullName
Tanx
I use:
Sub FullPathFooter()
For Each sht In ActiveWorkbook.Sheets
Ampersand = Chr(38)
Quote = Chr(34)
FooterFormat = "Arial"
FooterTextSize = "16"
FooterText = ActiveWorkbook.FullName
Formatting = Ampersand & Quote & FooterFormat & Quote & Ampersand & FooterTextSize
FOOTER = Formatting & FooterText
sht.PageSetup.LeftFooter = FOOTER
Next sht
End Sub
HTH, Manfred
Hi manfredm,
Probably I've done something wrong because this isn't working?
Don’t have an account yet? Register yourself now and be a part of our community!