Hello,
I have a workbook with many worksheets. The worksheets have different page
layouts/setups. However, I need the same footer on all sheets. When I "select
all sheets" and add a footer, the page setup copies throughout also. Is there
a way to copy the footer without changing the page setup and without having
to open every single footer to copy/paste?

thanks
Jen

Sub setfooter()
For Each ws In Worksheets
ws.PageSetup.LeftFooter = "SalesAidSoftware"
Next
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"jen_writer" wrote in message
...
Hello,
I have a workbook with many worksheets. The worksheets have different page
layouts/setups. However, I need the same footer on all sheets. When I
"select
all sheets" and add a footer, the page setup copies throughout also. Is
there
a way to copy the footer without changing the page setup and without
having
to open every single footer to copy/paste?

thanks
Jen

Try this small macro:

Sub commonfoot()
For Each s In Worksheets
s.Activate
ActiveSheet.PageSetup.CenterFooter = "jen"
Next
End Sub

--
Gary''s Student - gsnu200759


"jen_writer" wrote:

Hello,
I have a workbook with many worksheets. The worksheets have different page
layouts/setups. However, I need the same footer on all sheets. When I "select
all sheets" and add a footer, the page setup copies throughout also. Is there
a way to copy the footer without changing the page setup and without having
to open every single footer to copy/paste?

thanks
Jen