Josh,
You could try this. Add this code to Personal.xls, and it will then
automatically set the footer for any sheet in any workbook.
Private WithEvents app As Application
Private Sub app_WorkbookBeforePrint(ByVal Wb As Workbook, Cancel As Boolean)
With Wb.ActiveSheet
.PageSetup.LeftFooter = "&""Arial,Bold""&8" & Wb.FullName
End With
End Sub
Private Sub Workbook_Open()
Set app = Application
End Sub
'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code
--
HTH
RP
(remove nothere from the email address if mailing direct)
"Joshua K Briley" wrote in message
...
Thanks Bob,
I've found similar code from Microsoft, but I'm looking to do it from a
global perspective, if it is at all doable. Sorry for leaving out that
little detail. Can it be done?
There is a toolbar in word that allows for this, but I can't seem to
locate
anything outside of code that will allow me to do it in Excel.
--
Somecallmejosh
"Bob Phillips" wrote:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wsSht As Worksheet
For Each wsSht In ActiveWindow.SelectedSheets
wsSht.PageSetup.LeftFooter = "&""Arial,Bold""&8" & Me.FullName
Next wsSht
End Sub
'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code
--
HTH
RP
(remove nothere from the email address if mailing direct)
"Joshua K Briley" wrote in
message
...
How can I include the full path of where the document resides on my
workstation, in the footer of my worksheets?
--
Somecallmejosh
|