どなたかお教えください

マクロでたとえばですが

ActiveCell.Replace What:="*", Replacement:="x"

のように　セル文字列の　*　の部分だけをｘに変換したいのですが
アスタリスクはすべて変換してしまいますよね。

A1*A1　という文字列を上記マクロ実行するとA1ｘA1　という結果になって
ほしいのですが。実際は　ｘ　担ってしまいます

どのようにすればよいのでしょうか。