You can replace the following line
StrFnd = "dog,cat,pig,horse,man"

with something along the lines of
StrFnd = InputBox("Type words separated by a comma","Title of box","dog,cat,pig,horse,man")

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia