Check if Object is embedded in Excel

Hi,

Is the file likely to be so small you can't see it?

One way would be

Dim shp As Shape
    
    For Each shp In ActiveSheet.Shapes
        If Not Intersect(Range("P7"), shp.TopLeftCell) Is Nothing Then
            MsgBox shp.Name & " is over cell P7"
        End If
    Next