クリックボードへのコピー２

https://oshiete.goo.ne.jp/qa/9535337.html　にて質問した者です；
GooUserラックさんのNo.4の通りマクロを書いた後に気が付いたことがありました。
空白にすると、実行時エラーというエラーがでてしまいます；エラーが出ないようにする方法はあるのでしょうか。。

No.1 ベストアンサー 回答者： GooUserラック 回答日時： 2016/12/01 00:04

以下の様に「If Target.Value = "" Then Exit Sub」を入れてみてください。

-----------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "" Then Exit Sub
If Target.Address = "$A$1" Then
With New MSForms.DataObject
.SetText StrConv(Range("A1").Value, vbWide)
.PutInClipboard
End With
End If
End Sub
-----------------------------------------------------------------

この回答へのお礼

GooUserラック様！！
ありがとうございます；；きちんとできました。
GooUserラック様には何度も何度も本当に感謝してもしきれません；
すごい知識をお持ちで素敵だと思いました。ありがとうございました♡

お礼日時：2016/12/01 00:24