Try this:
Replacement:=Range("j2").Value
....between your stars, but remove the stars to run the code, of course.