L
Legacy 271199
Guest
Hi everyone
Here’s what I’m looking for:
I wanted to copy active sheet’s leftfooter and apply to all other sheets in the workbook. So I found the code below:
Sub copyfooter()
Dim ps As PageSetup
Dim wb As Workbook
Dim ws As Worksheet
Set ps = ActiveSheet.PageSetup
For Each wb In Workbooks
For Each ws In wb.Worksheets
With ws.PageSetup
.LeftFooter = ps.LeftFooter
Next
next
End With
After found copyfooter() I wanted to do something else.
I want to edit each leftfooters’ font and also fontsizes. While doing that I want to add some conditions, by using if then statements, I think.
For example I want to change leftfooters’ fontsize and font by sheet’s pagesetup.zoom value.
Any one can help about it
Thanks.
Here’s what I’m looking for:
I wanted to copy active sheet’s leftfooter and apply to all other sheets in the workbook. So I found the code below:
Sub copyfooter()
Dim ps As PageSetup
Dim wb As Workbook
Dim ws As Worksheet
Set ps = ActiveSheet.PageSetup
For Each wb In Workbooks
For Each ws In wb.Worksheets
With ws.PageSetup
.LeftFooter = ps.LeftFooter
Next
next
End With
After found copyfooter() I wanted to do something else.
I want to edit each leftfooters’ font and also fontsizes. While doing that I want to add some conditions, by using if then statements, I think.
For example I want to change leftfooters’ fontsize and font by sheet’s pagesetup.zoom value.
Any one can help about it
Thanks.