Hi guys,

Thank you very much for your helps. The code works very well.

Can you help me one more thing?

Instead of deleting all the shapes in active sheet, can you help me with the
code to delete the shapes in the selected cells in the active sheet?

For example, if I select cells A1, B1, C5:G10 and when I run the macro, the
macro will only delete the shapes in those selected cells.

Thanks.

"Keith R" wrote:

See edited (air)code below.
HTH,
Keith

"Please Help" wrote in message
...
Hello all,

I have a macro to delete the shapes in an active worksheet. After the
shapes are deleted, users will receive a message that they have been
deleted.
In the message, I would like to insert the number of shapes that were
deleted. Can someone help me with counting those deleted shapes?

Below is my current code:

Dim cMarks As Shape
Dim cCount as Integer

cCount = 0

For Each cMarks In ActiveSheet.Shapes
If cMarks.Type = 13 Then
cMarks.Delete
cCount = cCount+1
End if

Next cMarks
MsgBox "You have removed " & cstr(cCount) & " check marks in Worksheet
'" &
ActiveSheet.Name & "'."

Thanks.