先生、どうかご指導お願いします。
得意先名が記載してある列に対して
営業所や支店を削除して整理したいと考えてます

下記はAAA㈱〇〇営業所という社名、営業署名を
AAA㈱と置き換えようとして作成しているマクロです
下記のようにワイルドカードを使って置き換えようとすると
スルーされてしまって変換できません
どうしたらスルーせずに変換できるようになるでしょうか？


Dim Mrow, TOcol, i, t As Long
Dim Mrange As Range

Mrow = Cells(Rows.Count, 1).End(xlUp).Row
TOcol = Rows(1).Find(what:="得意先", lookat:=xlWhole).Column

Range(Cells(2, TOcol), Cells(Mrow, TOcol)).Select
For Each Mrange In Selection

Mrange.Value = Replace(Mrange.Value, "AAA㈱*", "AAA㈱")

Next Mrange