Private Sub Worksheet_Change(ByVal Target As Range)
Dim T(), L&
T = Me.[A3].CurrentRegion.Value
For L = 2 To UBound(T)
With ThisWorkbook.Worksheets(L).PageSetup
.LeftHeader = T(L, 1)
.CenterHeader = T(L, 2)
.RightHeader = T(L, 3)
End With: Next L
End Sub