vbaで実行後、指定のセルに戻すには

いつもお世話になります。
OS Win10　 エクセル　2016 です。

下記のvbaの　「置換」　を実行した後、
"J13:AN32"の範囲の画面が黒ずむので実行後その都度
「A11」をクリックして解消しています。

「置換」を実行した後は「A11」に戻るコードを下記のコードに追加したいのですがご指導いただけませんか。
よろしくお願いいたします。

参考
Sub 連続置換()
Range("J13:AN32").Select
With Selection
.Replace What:="n", Replacement:="日", LookAt:=xlWhole
.Replace What:="h", Replacement:="早"
.Replace What:="o", Replacement:="遅"
.Replace What:="y", Replacement:="夜"
.Replace What:="k", Replacement:="公"
.Replace What:="u", Replacement:="有"
.Replace What:="p", Replacement:="パ"
.Replace What:="q", Replacement:="休"
.Replace What:="a", Replacement:=""

End With
End Sub

No.1 ベストアンサー 回答者： GooUserラック 回答日時： 2018/04/28 12:51

「Range("A11").Select」を追加ではダメですか？

この回答へのお礼

早速のご回答をありがとうございます。
うまくできました。

インターネットで調べてどれこれもうまくいきませんでした。
助かりました。

お礼日時：2018/04/28 13:08

No.2 回答者： ママチャリ 回答日時： 2018/04/28 13:01

黒ずむ原因は「Select」しちゃうからです。

「A11」に戻すより「Select」を使わない書き方をマスターした方がスマートですね。こんな感じです。

Sub 連続置換()
With Range("J13:AN32")
.Replace What:="n", Replacement:="日", LookAt:=xlWhole
.Replace What:="h", Replacement:="早"
　　・
　　・
　　・