VBA　コードの修正

【概要】VBAのコード修正についてお願いできればと思います。 【目的】VBAのコード修正に使用したいと思っています。 【依頼背景】VBAのコードを行うにあたり、修正が必要となりました。 【提案の際のお願い】提案される際は修正についてご提示頂けますと検討がしやすいです。宜しくお願いいたします。 市販本のサンプルですので動くはずなのですが　エラーがでないのですが フォルダ内画像を新規エクセルシートに表示できません。