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

質問

指定範囲(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 · ベストアンサー

sp.TopLeftCell.Address
sp.BottomRightCell.Address

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

お礼

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

補足

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

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