【VBS, Windows10】エクスプローラー上でプレビューウィンドウが有効だとプログラムが止まってしまいます。

初心者ですがvbsでエクスプローラー上で同一フォルダ内のファイル名を変更するプログラムを書いています。
想定はpdfで、プレビューを見ながらファイル名を入力しようとしています。
しかし、プレビューを有効にしているとなぜかファイル名を変更する段階でF2で入力するステップに進めません。

切り分けていったところpdfのプレビューが表示されるところで処理が止まってしまうようです。
（下記｛UP｝連続でpdfのデータをハイライトするとそこで動作が止まります。）
どなたか原因と解決策をご教授お願いします。

～～～～～～～～～～～～～～～～～～～～～～～～～～

Option Explicit
Dim x
Dim objWshShell
Set objWshShell = WScript.CreateObject("WScript.Shell")

WScript.Sleep 1000
objWshShell.SendKeys "{UP}"
WScript.Sleep 1000
objWshShell.SendKeys "{UP}"
WScript.Sleep 1000
objWshShell.SendKeys "{UP}"
WScript.Sleep 1000
objWshShell.SendKeys "{UP}"

WScript.Sleep 1000
objWshShell.SendKeys "{F2}"

WScript.Sleep 100
objWshShell.SendKeys (123)
WScript.Sleep 100
objWshShell.SendKeys (456)

Set objWshShell = Nothing