[James]

Great! Thanks a lot.

"Graham Mayor" wrote:

Change
.Wrap = wdFindContinue
to
.Wrap = wdFindStop


--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org



James wrote:
Hi

Is there a way to apply a macro to a selected text only, whether the
text is a word, phrase, sentence, or paragraph? The macro is rather
simple, a recorded macro that removes vowels:

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "[aeiouAEIOU]"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub