図形のクリアができない。

　指定範囲(I9:CW40)から図形(円・四角形)のクリアをするとエラーになってしまいます。御教授願えませんでしようか？(尚四角形はセルの枠線上に貼り付けるようにしてあります。)

Sub 図形のクリア()

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Dim myRng As Range
Set myRng = Range("I9:CW40")
Dim n As Integer, sp As Variant
For n = ActiveSheet.Shapes.Count To 1 Step -1
Set sp = ActiveSheet.Shapes(n)
If Not Intersect(Range(sp.TopLeftCell, sp.BottomRightCell), myRng) Is Nothing Then(ここで、1004の実行エラーになる。)
sp.Delete
End If
Next
Set myRng = Nothing

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub

No.1 ベストアンサー 回答者： n-jun 回答日時： 2013/02/16 15:34

sp.TopLeftCell.Address

sp.BottomRightCell.Address

ともに　Address プロパティ　をつけてみるとか？

この回答への補足

　試しましたが駄目でした。前はできましたが、SkyDriveで編集をやっていてこうなってしまいました。
(尚Ofiiceの再セットアップでも改善されませんでした。)

質問したコード文をコピペしても図形のクリアができません。

補足日時：2013/02/16 20:50

この回答へのお礼

　その後何度もやっていて正常に動作するようになりました。ご享受ありがとうございました。
尚、お礼の返事が遅れてすいません。

お礼日時：2013/02/23 22:18