EXCEL VBAコミュの実行時エラー '50290':の対処法について

表題のエラーについてですが

解決方法を探しております。

私が作成したツールを配布して使用してもらったところ発生した模様です。
勿論私の環境では問題なく動作できるのですが配布先でご利用頂いている異なる
環境では実行時エラーが発生し動作ができないとのことでした。

以下のVBSでエクセルを起動
----------------------------------------------------------
Option Explicit
Dim objExcelApp, strPath
Const BookName = "Exam_Master.xls"
Set objExcelApp = CreateObject("Excel.Application")
With WScript
strPath = Replace(.ScriptFullName, .ScriptName, "")
End With
objExcelApp.Workbooks.Open strPath & BookName, False, False
objExcelApp.Visible = True
Set objExcelApp = Nothing
----------------------------------------------------------

私の環境　OS：XP　Excel2007
配布先環境　OS：Vista(SP2)　Excel2007

詳しいエラーログ
---------------------------------------------------------
実行時エラー '50290':
　'ScreenUpdating'メソッドは失敗しました:'_Application'オブジェクト
---------------------------------------------------------

色々調べてみて原因として考えられる要素

その１
ActiveX コントロールなどの外部コンポーネントとの通信の間でイベントを発生させるプログラムの場合
一時的に Excel の準備ができていない状態になることがあり、
（Application.Readyが何かしらでFalseになっているため）
このときにオートメーションの通信を行うと、Excel は実行時エラーを返す。

その２
VBSのコーディングに問題がある？




以下（VBAフォームモジュール）がエラー発生したプロシージャになります。

Private Sub ListBox1_Click()

Application.ScreenUpdating = False 'パフォーマンス向上
'Selectボタンのフラグが立っている時は、シート（4）以降を削除


If Range("X1").Value = 1 Then
Call Del_Sheet
Worksheets("control").Activate
Range("DV1:DV100").Value = Null
End If

Range("DT1").Value = ListBox1.Value 'リストボックスで選択したテスト項目を記録

Const cnsDIR = ".JPG"
Const NoImage = "\NoImage"
Dim MyPath As String
Dim P_name As String
Dim strFILENAME As String
Dim CheckFile As String


MyPath = ActiveWorkbook.Path
P_name = Range("DT1").Value

Call Open_F
Range("X1").Value = 1 'Selectボタンのフラグ立て
Label2.Caption = Range("DT1").Value 'テストジャンルをラベルに反映

'*******************************************************************

'テスト選択リストを動的コントロール
Dim lastRow As Long '最終行変数
With Worksheets("control")
lastRow = .Cells(Rows.Count, 126).End(xlUp).Row
End With

ListBox2.RowSource = "DV1:DV" & lastRow

'*******************************************************************
CheckFile = Range("DT1").Value & cnsDIR
strFILENAME = Dir(MyPath & "\LOGO\" & P_name & cnsDIR)
If CheckFile = strFILENAME Then
Image2.Picture = LoadPicture(MyPath & "\LOGO\" & P_name & cnsDIR)
Else
Image2.Picture = LoadPicture(MyPath & "\LOGO\" & NoImage & cnsDIR)
End If

CommandButton1.Visible = False
Label5.Visible = True
ListBox2.Visible = True
Call List_s '音
Application.ScreenUpdating = True 'パフォーマンス向上

End Sub

同様のエラーに対するデバッグを経験された方、ご存知の方がいらっしゃいましたら
ご教授願います。