フォームの非表示と表示を
間に挟めば目的のことが
できそうです。

'非表示
xlApp.Run("Test.xls!プレビュー") 'マクロ実行
'表示

ありがとうございました。