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