Which line of the code errors (Highlighted) ?
Probably this line

With Application.FindFormat.Interior