Code not working in 2010

[konopca]

Hello,
Can anyone help me adjust the following code; it is acting on my whole document and not just my selection?

Sub FixHyphens()
'
' Macro1 Macro
' Macro recorded 5/16/2003 by xxxxxx
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "-"
        .Replacement.Text = "^~"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Thanks for any help.

[Andrew Lockton]

It has taken a while for you to notice that it wasn't working {recorded 5/16/2003} Perhaps the issue is that you need to ensure that there is a selection (rather than just an Insertion Point).

Does this version work any better? The only real difference is the .Wrap command

Sub FixHyphens()
  With Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "-"
    .Replacement.Text = "^~"
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute Replace:=wdReplaceAll
  End With
End Sub

[konopca]

Andrew - Your code works. The reference to 5/16/2003 is because when my company upgraded to 2010 just a few weeks ago, I just copied my macros from my old normal to the new one. I tested them all then but failed to notice that this one was working on the whole document. Thanks for your help.