[VB.NET]　EXCELのVisible＝Trueにすると、インデックスエラーが発生する。

VB.NETでEXCEL取込をするプログラムを作成しているのですが、EXCELを開こうとするとインデックスが無効な旨のメッセージが出てエラーとなってしまいます。

こちら先週までは問題なく動作していたのですが、昨日から該当の箇所でエラーが発生するようになりました。
プログラム上では変更を行っておらず、変更したのはWindowsアップデートと、リソースモニターから一度EXCELのタスクを終了させました。

VB.NET
1
2'処理に関係ないと思われる個所は省略しております。
3
4　　　　 Const ExcelApplication = "Excel.Application"
5        Dim XlApp As Object = Nothing  
6        Dim XlSheet As Object
7        Dim ExcelWasNotRunning As Boolean   
8        Dim ExcelOpenFlg As Boolean
9        Dim EndRow As Long
10        Dim FileName As String = ""
11
12        Try
13            XlApp = GetObject(, ExcelApplication)
14            If Err.Number <> 0 Then
15                ExcelWasNotRunning = True
16            Else
17                ExcelWasNotRunning = False
18            End If
19            Err.Clear()
20
21        Catch ex As Exception
22            ExcelWasNotRunning = True
23        End Try
24
25        Try
26            XlApp = GetObject(xlsFileName)                       
27            If Err.Number <> 0 Then                             
28                ExcelOpenFlg = False
29            Else
30                ExcelOpenFlg = True
31                XlApp.Application.Visible = True
32                XlApp.Parent.Windows(1).Visible = True    '←←←ここでインデックスが無効です。と出る    
33
34                XlApp.Windows(Dir(xlsFileName)).Activate()
35                XlApp.Application.Visible = False
36            End If
37            Err.Clear()
38        Catch ex As Exception
39
40        End Try
41