I tried the macro, and it didn't work, so I did some research and found that the code needs to spell out "Name" in order for it to work. I put the change below. Thanks for your help!


Sub Macro1()
'
' Macro1 Macro
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ""
.Font.Name = "Garamond"
.Replacement.Text = ""
.Replacement.Font.Name = "Arial Narrow"
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub