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

Won't change any of the other print setup characteristics.


Gord Dibben MS Excel MVP

On Thu, 14 Jun 2007 08:32:45 -0700, NameNick wrote:

I have a EXCEL workbook with about 20 worksheets. These worksheets
are set up with different characteristics for printing, e.g., each has
a different header and some are portrait and some are landscape.

I want to add a common footer to all worksheets at once without
messing up the exisiting print characteristics.

Is there any way of doing that?

Thanks.