What's wrong with my loop?

[Irrma]

Hi,

I am getting multiple footers in sections. Does anybody know what I am going wrong?

Sub AddFooter()
'
' AddFooter Macro
'
'
Dim i As Integer
ActiveDocument.PageSetup.OddAndEvenPagesHeaderFoot er = True
For i = 1 To ActiveDocument.Sections.Count

ActiveDocument.Sections(i).Footers(wdHeaderFooterP rimary).Range _
.InsertAfter "Odd Header"
ActiveDocument.Sections(i).Footers(wdHeaderFooterE venPages).Range _
.InsertAfter "Even Header"




Next i

End Sub

Please help.Thank you!!!