header forskellig på hver excel ark

Hej E.

Jeg har følgende kode:
Sub Macro2()
'
' Macro2 Macro
' Macro recorded 08-04-2003 by Jakob Mikkelsen
'

'
Dim header As String


    Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
    Sheets("Sheet1").Activate
    With ActiveSheet.PageSetup
    header = Range("a3")
       
        .CenterHeader = " " & header & " "
     
     
    End With
End Sub

Men hvordan for jeg den til at finde værdigen i celle a3 på alle ark i workbooken, og indsætter den i headeren.
Mit forsøg virker kun på det første ark, men det er så i bedre kan se hvad det er jeg vil...