Hi Bill

I can only think of two things -assuming that the file actually exists and that you'll
write code to ensure it does in the finished product.

First, you don't specify which sheet in the file to go to. And second, opening files may
take a while, insert a DoEvents to give her a little space. Let me also suggest you insert
a On Error GoTo 0
sldo, it clears error handling and so the debugger should provide the corrrect error
message on errors:

Sub test()
On Error GoTo 0
Workbooks.Open Filename:="C:\Tests\OpenTest.xls"
DoEvents
Workbooks("OpenTest.xls").Sheets(1).Activate
DoEvents
Range("B2").End(xlDown).Offset(1, 0).Select
End Sub

--
HTH. Best wishes Harald
Followup to newsgroup only please.

"Bill in Inverness" wrote in message
...
Hi all,

I have a number of files to process and I don't want to add the same duplicative VBA
code to each file. Putting the code into single workbook with a loop to open and process
the files sequentially seemed logical.

However, my code halts after opening the first file. Any idea what might be wrong?

I reduced the code to bare bones (without the loop) and it still quits after opening the
first file. The start of the processing code is simple:

Workbooks.Open Filename:="C:\Tests\OpenTest.xls"
Range("B2").End(xlDown).Offset(1,0).Select

The computer a new Compaq running Excel XP SP2 with all available Office updates applied
and running under Windows XP Home Edition SP1 with all Critical updates and all but a few
of the Recommended updates installed.

Thanking you in advance, I look forward to enlightenment

Bill