[엑셀]VBA 버튼(개체) 삭제/실행 시 확인

버튼 삭제

Sub Clear_ButtonsActiveSheet()

    Dim I As Long
    Dim xOLE As Object
    On Error Resume Next
    ActiveSheet.Buttons.Delete
    For Each xOLE In ActiveSheet.OLEObjects
        If TypeName(xOLE.Object) = "CommandButton" Then
            xOLE.Delete
        End If
    Next


End Sub

실행 전 확인 메세지

Sub Check_before_execute()

CarryOn = MsgBox("실행하시겠습니까?", vbYesNo, "Run Macro")
If CarryOn = vbYes Then
'put rest of code here

End If
End Sub