I have the following macro that works great:
Sub OpenData()
ChDir "Y:\somewhere"
Workbooks.Open Filename:= _
"Y:\somehwere\Tables.xls"
Windows("calculation.xls").Activate
End Sub

This works as long as the macro is run in the file "calculation.xls".
How can I change it so that it will return to the file from which the
macro has been launched? I uderstand that I could change the name
"calculation.xls" each time for a new file, but I am sure that I and
others will sometimes forget and then have to go manually to that file.

Or is it possible to open the file "Y:\somehwere\Tables.xls" without it
going to the front?

houghi
--
This was written under the influence of the following:
| Artist : BBC Philharmonic
| Song : Symphony 6
| Album : The Beethoven Experience

Just store the caption of the active workbook and use it to re-Activate the
window:

Sub dural()
Dim w As Window
Set w = ActiveWindow
n = w.Caption
'ChDir.......
'Workbooks.Open Filename:=.....
Windows(n).Activate
End Sub
--
Gary''s Student - gsnu200836


"houghi" wrote:

I have the following macro that works great:
Sub OpenData()
ChDir "Y:\somewhere"
Workbooks.Open Filename:= _
"Y:\somehwere\Tables.xls"
Windows("calculation.xls").Activate
End Sub

This works as long as the macro is run in the file "calculation.xls".
How can I change it so that it will return to the file from which the
macro has been launched? I uderstand that I could change the name
"calculation.xls" each time for a new file, but I am sure that I and
others will sometimes forget and then have to go manually to that file.

Or is it possible to open the file "Y:\somehwere\Tables.xls" without it
going to the front?

houghi
--
This was written under the influence of the following:
| Artist : BBC Philharmonic
| Song : Symphony 6
| Album : The Beethoven Experience

Gary''s Student wrote:
Just store the caption of the active workbook and use it to re-Activate the
window:

Thanks, works great.

houghi
--
This was written under the influence of the following:
| Artist : Evanescence
| Song : Everybody's Fool
| Album : Not For Your Ears