Excel: excel Cannot shift object off sheet

Warning : excel Cannot shift object off sheet

Sub Test()
Dim s As Shape
On Error Resume Next
For Each s In ActiveSheet.Shapes
s.Placement = xlMoveAndSize
Next
End Sub