Sub NoFirstPageHeader_AllSheets()
    Dim wsSheet As Worksheet
    Dim strLeft As String
    Dim strRight As String
    Dim strCenter As String

    For Each wsSheet In Worksheets
        With wsSheet
            strLeft = .PageSetup.LeftHeader
            .PageSetup.LeftHeader = ""
            strCenter = .PageSetup.CenterHeader
            .PageSetup.CenterHeader = ""
            strRight = .PageSetup.RightHeader
            .PageSetup.RightHeader = ""
            .PrintOut From:=1, To:=1
            .PageSetup.LeftHeader = strLeft
            .PageSetup.CenterHeader = strCenter
            .PageSetup.RightHeader = strRight
            .PrintOut From:=2
        End With
    Next wsSheet
End Sub