Hi I have a sheet that contains shapes in a number of cells (sometimes more than one shape per cell)
I need VBA code to clear all the shapes from 'ONLY' the active cell and then clear the contents of that active cell.
The code I am trying is below - But get a debug error on "For Each Shp In ActiveCell.Shapes"
Not sure what I am doing wrong?
Sub DeleteShapes_ActiveCell()
Dim Shp As Shape
For Each Shp In ActiveCell.Shapes
If Shp.ActiveCell = ActiveCell Then Shp.Delete
ActiveCell = ""
Next Shp
ActiveCell.ClearContents
Range("c3").Select
End Sub
Bookmarks