Deleting Shapes from an Active Cell then clear the contents ??

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