How do I modify the following code so that the Find and Replace dialog box is pulled up allowing the user to choose what is found and what it is replaced with?

Cells.Replace What:="November", Replacement:="October", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False


Thanks to all.