Excel vba 条件分岐 空白セルがあった場合と無い場合

下記がExcel　vbaで実行したい事ですが、途中で分からなくなり困っています。

指定範囲のセル（A1)に空白が無ければ（”Group３”）をコピペ
空白があった場合メッセージボックスで（”Group３”）のコピペ実行の確認
　　　　　　はい　→　コピペ
　　　　　　いいえ　→　何もしない

【現状】
Sub sample3()

If Range("A1") = "" Then
If MsgBox("未入力の項目があります。" & vbCrLf & "承認してもいいですか？", vbYesNo) = vbYes Then

ActiveSheet.Shapes("Group 3").Copy
ActiveSheet.Paste Destination:=Range("C3")


End If
End If
End Sub

No.1 ベストアンサー 回答者： tatsumaru77 回答日時： 2021/02/27 08:52

以下のようにしてください。

Sub sample3()

If Range("A1") = "" Then
If MsgBox("未入力の項目があります。" & vbCrLf & "承認してもいいですか？", vbYesNo) <> vbYes Then
Exit Sub
End If
End If
ActiveSheet.Shapes("Group 3").Copy
ActiveSheet.Paste Destination:=Range("C3")
End Sub

この回答へのお礼

完璧です！
素早い反応で本当に助けになりました！
ありがとうございました！！

お礼日時：2021/02/27 09:02