Chip;
Thanks very much I got it. Basically I followed your advice that "there is
no window with a caption equal to the contents of the 'Progname' variable".
Therefore, I typed the the following content instead:
"" & WO & "\" & Boring & " " & "@" & " " & depth & ".xls"
and it is working perfectly.
Thanks again for your help.

Maperalia






"Chip Pearson" wrote:

Run-Time error'9':
Subscript out of range

What does it mean?

That means that there is no window with a caption equal to the contents of
the 'Progname' variable.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting
www.cpearson.com
(email on the web site)

"maperalia" wrote in message
...
LGWhiz;
Thanks for the quick response. I put the statement you gave me (
Workbooks(Progname).Activate ) a I got the following error message:

Run-Time error'9':
Subscript out of range

What does it mean?

Maperlia


"JLGWhiz" wrote:

Workbooks(Progname).Activate

"maperalia" wrote:

I want to know how can I active a window. I have the statement written
(see
below) ,however, it is not working. The "Progname" is already open with
another files and I want the "Progname" to be the active one when the
macro
is done.

Thanks advance.
Maperalia

"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
Progname = "S:\GEOTEST\shears\" & WO & "\" & Boring & " " & "@" & " " &
depth & ".xls"
Windows(Progname).Activate