run-time error 5624 on Find/Replace Line

I found this macro code to replace tab spacing with a single space, but I get a run-time 5624 error. The debugger highlights the following line as having the problem:

Selection.Find.Replacement.ClearFormatting

Please help! Getting this macro to run will save me an enormous amount of time!

Sub TabsOut()
    If Selection.Type <> wdNoSelection Then
        Selection.HomeKey Unit:=wdStory, Extend:=wdMove
    End If
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p^t"
        .Replacement.Text = "^p^"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Select allOpen in new window