Как удалить квадрат программно?

[Turistovik]

В общем проблема такая:
я создаю на листе квадрат:

ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, 230, 115, 115).Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = k
Selection.ShapeRange.Fill.Visible = msoTrue

Затем мне нужно чтобы при нажатии на этот квадрат вылазил MsgBox(с вопросом)(это я понял как сделать) и при правильном ответе квадрат должен удаляться а при неправильном должен закрашиваться серым цветом, помогите как это сделать?

[VictorM]

Sub Автофигура()
    ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, 230, 115, 115).Select
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = k
    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.Name = "Квадрат"
    Select Case MsgBox("Удалить квадрат?", vbYesNo Or vbQuestion Or vbDefaultButton1, "Автофигура")
    Case vbYes
        ActiveSheet.Shapes("Квадрат").Delete
    Case vbNo
        Selection.ShapeRange.Fill.ForeColor.SchemeColor = 22
    End Select
End Sub

[viter.alex]

Вот так:

Sub DeleteMe()
    Select Case MsgBox("Удалить квадрат?", vbYesNo Or vbQuestion Or vbDefaultButton1, "Автофигура")
    Case vbYes
        ActiveSheet.Shapes("Квадрат").Delete
    Case vbNo
        ActiveSheet.Shapes("Квадрат").Fill.ForeColor.SchemeColor = 22
    End Select
End Sub

Sub Автофигура()
    With ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, 230, 115, 115)
        .Fill.ForeColor.SchemeColor = 5
        .Fill.Visible = msoTrue
        .Name = "Квадрат"
        .OnAction = "DeleteMe"
    End With
End Sub