I have to replace the default footer text in alot of templates and I'm having trouble getting it to work. The first part of the default text is always the same, so I want to search for that, then extend the line (except for the return) and replace it. When I run this macro, nothing replaces. What am I doing wrong?

[vba]Sub ReplaceFooterText()
Dim intHFType As Integer
Dim rngPane As Range
With ActiveDocument.Sections(1)
For intHFType = 1 To 3
Set rngPane = .Footers(intHFType).Range
With rngPane.Find
' Search for default text and replace it
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "987654321 A54321 112233abc"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
End With
Selection.Find.Execute
' If found, update the text
If Selection.Find.Found = True Then
' Extend text to include the file number text
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
' Move left to exclude the return
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
' Insert new text
Selection.TypeText Text:="123456 54321 112233abc [kit#] [class#]"
End If
End With
.Footers(intHFType).Range.Borders(wdBorderTop).LineStyle = wdLineStyleNone
Next intHFType
End With
End Sub[/vba]