I am trying to create a macro that updates all the active worksheets in Excel but the problem I have is that the Titus Classification selected gets overwritten. How can I update without overriding the Titus? Here is my code:
Sub a_single_pg_portrait_footerV2()
Dim Current As Worksheet
Application.ScreenUpdating = False
For Each Current In Worksheets
Current.Activate
With ActiveSheet.PageSetup
.LeftHeader = Chr(10) & "Department Name"
.CenterHeader = "&F"
.RightHeader = "&D &T"
.LeftFooter = "Author" & Chr(10)
.CenterFooter = "&P of &N" & Chr(10)
.RightFooter = "&Z" & "(" & "&A" & ")"
End With
Next Current
Application.ScreenUpdating = True
End Sub
Bookmarks