範囲を選択して、テキストBOXを削除したいのですが、
VBAを実行させるとエラーになります。

両方ともに
オブジェクトエラー　1004↓
Set rng = Range(Shp.TopLeftCell, Shp.BottomRightCell)

どのようにしたらよいのでしょうか？
宜しくお願い致します。



If TypeName(Selection) <> "Range" Then Exit Sub

For Each Shp In ActiveSheet.Shapes

Set rng = Range(Shp.TopLeftCell, Shp.BottomRightCell)

If Not (Intersect(rng, Selection) Is Nothing) Then
Shp.Delete
End If
Next
End Sub


Sub DELL2()
    Dim Slc
    Set Slc = Selection
    
    Dim Shp
    
    For Each Shp In ActiveSheet.Shapes
       
        Set a = Range(Shp.TopLeftCell, Shp.BottomRightCell)
        
        If Not Intersect(a, Slc) Is Nothing Then
            Shp.Delete 
        End If
    Next
    
End Sub

そのプロシージャは、どのモジュールに書かれているんですか？

標準モジュール？　
シートモジュール？

半平太様

両方試したのですが、両方共にうまくいきませんでした。

シートモジュールで実行するとオブジェクトエラー　1004のボックスが表示され、OKボタンを押すとテキストBOXは削除されます。

標準モジュールで実行すると実行時エラー13型が一致しませんと表示され、
下記が黄色表示され、終了ボタンを押してもテキストBOXは残ったままです。
Set rng = Range(Shp.TopLeftCell, Shp.BottomRightCell)

宜しくお願い致します。

申し訳ないですが、全く思い当たりません。

他の回答者のレスをお待ちください。