highlighte ord og lave en kommentar i word i VBA

Jeg har følgende script der highlighter flere ord fra en liste. Det virker helt fint, nu vil jeg gerne også have at den opretter en kommentar med en fast tekst for hvert ord den finder.

Jeg kan dog ikke få det til at virke. Det må helt klart være at den ikke kan finde de highlightede selection, så min syntaks må være forkert?

'Set highlight color.
Options.DefaultHighlightColorIndex = wdBrightGreen
With Selection.Find
    'Clear existing formatting and settings in Find feature.
    .ClearFormatting
    .Replacement.ClearFormatting

    'Set highlight to replace setting.
    Selection.Find.Replacement.Highlight = True
   
--> her går det galt.
Selection.Comments.Add Selection.range, _
                                              Text:="Test tekst"

    'Process the array
    For Each VntStore In AryWords
        .Execute FindText:=VntStore, _
                MatchCase:=False, _
                MatchWholeWord:=False, _
                MatchWildcards:=False, _
                MatchSoundsLike:=False, _
                MatchAllWordForms:=False, _
                Forward:=True, _
                Wrap:=wdFindContinue, _
                Format:=True, _
                Replace:=wdReplaceAll
    Next
End With