複製したブックの指定ボタンを削除したい

Question

マクロを含有したボタンを複数持つブックを複製する際、
一定のボタンだけを削除するマクロしようとしています。
指定ボタンかの判定はボタン内の文字を基準としました。

Sub test()

    Dim wbThis As Workbook, wbTo As Workbook
    
    Set wbThis = ThisWorkbook
    wbThis.SaveAs "原本のコピー"
    Set wbTo = ActiveWorkbook
    
    Call deleteShapes1(wbTo)

End Sub


Sub deleteShapes1(wb As Workbook)

    Dim shape As Object
    
    For Each shape In ActiveSheet.ShapeRange
    
        Dim text As String
        text = shape.TextFrame.Characters.text
        
        If InStr(text, "ボタン1のテキスト") > 0 Then
        
            shape.Delete
            Exit For
            
        End If
    
    Next shape

End Sub

deleteShapes1内、 for each shape In ActiveSheet.ShapeRangeの行で
以下のエラーが発生してしまいます。

実行時エラー'438'オブジェクトはこのプロパティまたはメソッドをサポートしていません。

**試してみたこと

複製する前のブックにて、テスト用のボタンを作成しそのボタンを対象としてファンクションを実行した際は
エラーの発生もなく削除することができました。

ブックの複製先では使えないプロパティという状況に遭遇したことがなく、
原因が分からないため解決方法を教えていただけると幸いです。

Answer 1

とりあえずWorkSheetオブジェクトにShapeRangeというプロパティはないようです。
Selectionオブジェクトにはあるようですが。

ActiveSheetで正しくシート選択できているのかも気になりますが、
ひとまずこれで実行時エラー'438'が出ることはなくなるはずです。

    For Each shape In ActiveSheet.Shapes

        Dim text As String
        text = shape.TextFrame.Characters.text

        If InStr(text, "ボタン1のテキスト") > 0 Then

            shape.Delete
            Exit For

        End If

    Next shape

Comments

[kktok]

ご回答してくださりありがとうございます。
ご指摘いただいたように、シート選択を確実に行うために
対象シートをアクティベートしたのち実行するよう修正しようと思います。

[ttyp03]

> 対象シートをアクティベートしたのち実行するよう修正しようと思います。
アクティブ前提の作りは破綻しやすいので、きちんとオブジェクト経由で指定すべきです。
折角ワークブックを渡しているのだから利用しましょう。
For Each shape In wb.Worksheets(1).Shapes