bc
Manually.......
Select all worksheets(right-click and select sheets) before setting the
footer.
It will be applied to all sheets.
DO NOT FORGET to ungroup the sheets when done.
Use a macro to set a custom footer to all sheets..........
Sub Path_All_Sheets()
Set wkbktodo = ActiveWorkbook
For Each ws In wkbktodo.Worksheets
ws.PageSetup.RightFooter = ActiveWorkbook.FullName & " " & Chr(13) _
& Application.UserName & " " & Date
Next
End Sub
Gord Dibben Excel MVP
On Wed, 30 Mar 2005 14:13:57 -0800, bigcat
wrote:
I want to create a custom footer, just once, that could be applied to all
worksheets in an Excel workbook. Microsoft Word lets you do this, so why
not Microsoft Excel?
|