Sub DeleteAllShapes(Optional Shee = "Active", Optional Wb = "This")
If Wb = "This" Then Wb = ThisWorkbook.Name
If Wb = "Active" Then Wb = ActiveWorkbook.Name
If Shee = "Active" Then Shee = Workbooks(Wb).Worksheets(1).Name
On Error Resume Next
For Each Na In Workbooks(Wb).Worksheets(Shee).Shapes
Na.Delete
Next
On Error GoTo 0
End Sub
If Wb = "This" Then Wb = ThisWorkbook.Name
If Wb = "Active" Then Wb = ActiveWorkbook.Name
If Shee = "Active" Then Shee = Workbooks(Wb).Worksheets(1).Name
On Error Resume Next
For Each Na In Workbooks(Wb).Worksheets(Shee).Shapes
Na.Delete
Next
On Error GoTo 0
End Sub
Optional Shee = "Active", Optional Wb = "This"
Views 3,618
Downloads 1,392
CodeID
DB ID