Word Macro not working in Excel?

[ljjtek]

I have a macro that I use in Word to find and replace certain text, so I thought I could use this same code in Excel, but its giving me an error.....this is an example from the code....what's wrong?!
Sub days()

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "Monday"
.Replacement.Text = "Mon"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

End Sub

 

[Chattin]

I'd suggest recording the macro in excel to give you a start to the code you want