Replaceメソッドの対象範囲がブック全体のを回避したい

Question

Replaceメソッドを使用してシート全体を置換するマクロを使用しています。
Excelの置換機能(Ctrl+f)で「検索の場所」が「ブック」になっていると
コードで特定のWorksheetを指定していてもブック全体の置換になってしまいます。

マクロ使用者の置換機能設定の影響を受けないようにVBA上で制御できる方法がありましたらご教授願います。

該当のソースコード

Sub RepTest()
    Worksheets("Sheet1").Cells.Replace _
            What:="株式会社", _
            Replacement:="(株)", _
            LookAt:=xlPart
End Sub

試したこと

Excelの置換機能(Ctrl+f)の「検索の場所」を「ブック」→「シート」に変更することで
解決しました。

Answer 1

これでいかがでしょうか。

Sub RepTest()

    Cells.Find ""
    Worksheets("Sheet1").Cells.Replace _
            What:="株式会社", _
            Replacement:="(株)", _
            LookAt:=xlPart
End Sub

Comments

[matsu_2020]

解決しました。
Findメソッドを使うのですね、勉強になりました。
早速のご回答ありがとうございます！m(_ _)m