How's this?
Sub trythis()
Dim sh As Object, flag As Boolean
Dim r1%, r2%, c1%, c2%, acr%, acc%
flag = False
acc = ActiveCell.Column
acr = ActiveCell.Row
For Each sh In ActiveSheet.Shapes
r1 = sh.TopLeftCell.Row
r2 = sh.BottomRightCell.Row
c1 = sh.TopLeftCell.Column
c2 = sh.BottomRightCell.Column
If (r1 <= acr And r2 >= acr And c1 <= acc And c2 >= acc) Then
MsgBox "Autoshape " & sh.Name & " is over this cell"
flag = True
End If
Next sh
If Not (flag) Then MsgBox "No Autoshapes at this cell."
Set sh = Nothing
End Sub