いつも大変便利に活用させて頂いています。
「Dr.web CureIt!」を使ってスキャンしたところ、W97M.Afetoというウィルスに感染しているとの事です。

akkeylegend様。
どうも。ご報告ありがとうございます。
確認いたしました。

原因はわかりませんが、
ダブルクリックで画像を貼り付ける場合の、貼り付けた画像のファイル名を取得するところでウィルスだと思われているようです。(シートに灰色の文字で記入する直前)

Filename = Application.GetOpen("画像ファイルを選んでね(*.*),*.*")　←ここでファイル選択画面を出して　
ActiveSheet.Pictures.Insert(Filename).Select　←ここで選択した画像をシートに貼り付けて
ファイル名 = Dir(Filename)　←ここで貼り付けた画像のパスからファイル名だけを取り出します。

ファイル名 = Dir(Filename)　の所を消したらウィルス反応はありませんでした。

原因はわかりませんが、そこの記述を変更したいと思います。
大変ご迷惑おかけしております。
自分はウィルスを作成する技術なんて持っておりませんのでご安心ください。

ご報告大変感謝いたします。
今後ともよろしくお願いいたします。


------------------------------------


ファイル名 = Dir(Filename)　の所を
ファイル名 = Mid(Filename, InStrRev(Filename, "\") + 1)　に変更して検出しなくなりました。
またご確認お願いいたします。

早速の対応、ありがとうございます。今後も安心して利用することができます。