Need VBA to renumber chapters

[bobbyrjw]

I have a 20k word story that has been edit-chopped.
I want VBA to find each instance of the word "Chapter" and add a number that increments on each iteration, or "find". and I want to change the style to heading 1.
here is the mess I have that is not working.
I didn't know if I can dispense with the replacement text, so I entered the same as the find text.

I'm not sure it is looping all the way through the doc.
I can't find the common practice to delineate code so I will do this;

[begin VBA code]

Sub Makro6()


'
' Makro6 Makro
'
'
Dim chanumb As Integer
chanumb = 1

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "chapter"
.Replacement.Text = "Chapter " & chanumb
.Style = ActiveDocument.Styles("Heading 1")
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchAllWordForms = False

End With
chanumb = chanumb + 1
Selection.Find.Execute Replace:=wdReplaceAll

End Sub

[/end VBA code]

Thank you!