Your technology certification is waiting. Enroll in Cloud Class ®
Dim xResponse As Long
Dim xShape As Shape
If ActiveSheet.Shapes.count = 0 Then
MsgBox ("No Shapes in the current sheet. Run cancelled.")
xResponse = MsgBox("About to delete all of the current sheet's Shapes. [" & ActiveSheet.Shapes.count & "]" & Chr(10) _
& "('OK' to continue, 'Cancel' to quit.)", vbOKCancel, "Delete All Shapes")
If xResponse = 2 Then Exit Sub
For Each xShape In ActiveSheet.Shapes
Open in new window
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.