copy footer without copying page setup

[jen_writer]

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

 

[Don Guillett]

Sub setfooter()
For Each ws In Worksheets
ws.PageSetup.LeftFooter = "SalesAidSoftware"
Next
End Sub

 

[Gary''s Student]

Try this small macro:

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