hi ubns,
Three things:
1. When posting Word-related questions, please post in the appropriate Word forum (the Word VBA forum in this case).
2. When posting code, please use the code tags on the 'Go Advanced' tab, with properly-formatted code.
3. Don't use Reserved words like 'find' for a macro's name.
Try:
Code:
Sub DeleteCents()
Application.ScreenUpdating = True
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = ".00>"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = True
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute Replace:=wdReplaceAll
End With
Application.ScreenUpdating = True
End Sub