I got it!!

Thanks for all who may have invested any time!

Dennis

*******************************************
....
Dim UpdateFileName as String
....
UpdateFileName = "Test.xls" 'shown just as example
Windows(UpdateFileName).Activate
....

*******************************************
Became:


Dim UpdateFileName as String
....
DataFilePath = ActiveWorkbook.Path
....
UpdateFileName = "Test.xls" 'shown just as example
Set UpdateWorkBook = Nothing
On Error Resume Next
Set UpdateWorkBook = Workbooks(UpdateFileName)
On Error GoTo 0
If UpdateWorkBook Is Nothing Then
Set UpdateWorkBook = Workbooks.Open(fileName:=DataFilePath & "\" &
UpdateFileName)
End If
....

*******************************************

"Dennis" wrote:

XL 2003

The file Test.txt is in memory but I want it to be the active sheet
therefore I attempt to execute:

...
Dim UpdateFileName as String
...
UpdateFileName = "Test.xls" 'shown just as example
Windows(UpdateFileName).Activate
...

Sometimes I get "Subscript out of range" error other times not.

Results of major frustrating investigation:

I noted that when the filename only (i.e. Test.xls) in on an XL Tab on the
(Win XP) task bar, all is OK.

When the path is included with the filename on an XL Tab on the XP Task bar
I get the error.

Further, if I use the XL file open wizard - I do NOT get the error. That
said, if I load Test.xls by double clicking Test.xls from Windows Explorer
AND it is the first use in the day of that file on the startup of XL - the
path shows on the Tab AND I get the error.

Therefore, having the path on the Win XP Task bar Tab = error

I or we may never know why, but does anyone know how to change my code to
avoid the error?

Dennis