参照設定の方法
実行時にエラーが出て
Microsoft Scripting Runtime
Microsoft Shell Controls And Automation
の参照設定がなされていない場合は
参照設定されている場合

参照設定が必用です。

参照設定は、メニューのツールを起動します
参照設定するコントロール

必用なコントロールにチェックをいれOKをクリックします。
必用なコントロールは下記の2つです。
Microsoft Scripting Runtime
Microsoft Shell Controls And Automation

参照設定結果