Quote Originally Posted by romperstomper View Post
Try using:
strTest = Replace(Range("E" & l).Value, "*", "[*]") & "*"
Worked perfectly : ) thanks (bedankt) a lot mister Romperstomper