Kopf-/Fusszeile per VBA - zweite Zeile wie?

Sub Fusszeilen_alle_Blätter()
For i = 1 To Worksheets.Count
Sheets(i).Select
With ActiveSheet.PageSetup
.LeftHeader = "Bernd"
.CenterHeader = "TextCenter"
.RightHeader = "Text rechts Zeile1" & _
.RightHeader = "Text rechts Zeile2"              'das funktioniert nicht :-(
.LeftFooter = "Linke Seite unten"
.CenterFooter = "TEXT"
.RightFooter = "Text"
End With
Next i
End Sub

Danke vorab.
Bernd