マクロだけを実行する

○Ｅｘｃｅｌは起動していますが、全く見えません
　　以下の例は、ユーザーフォームだけを表示します

Dim MyObject
Set MyObject = Wscript.CreateObject("Excel.Application")
With MyObject
'.Visible = True'これがなければExcelは非表示
.Workbooks.Open ("C:\My Documents\Book1.xls")
.Run ("Book1.xls!MyUserFormShow") 'ブック名とマクロ名
.Quit 'エクセル終了
End With
Set MyObject = Nothing