>> 422
返信ありがとうございます。
条件のところは以下のように変更しました。
　If Intersect(Target, Range("D3")) Is Nothing Then
Exit Sub
　Else

しかし、うまくいきません。

コピー元はwebクリエを利用してますが、更新は行っていないため
ただのデータシートだと考えています。