Debugging Windows Activate

[John Davis]

Hello All:

I've been struggling with this one for a couple of hours. I have been trying to run a macro which was running fine this morning. However, now it stops at a line: Windows("ocean2").Activate. This file is open but the macro stops there and will not go any further. Any ideas on why this is happening??

 

[Norie]

John

Are you getting any error messages?

Can you post the rest of the code?

 

[erik.van.geit]

Hi, John,

This morning your file was not saved yet. Now it is probably a "xls" file.
Add a DOT+extension to the filename.
Windows("ocean2.xls").Activate

You might consider to NOT activate nor select anything. Generally it is not needed to run code.

kind regards,
Erik

 

[John Davis]

Hi, John,

This morning your file was not saved yet. Now it is probably a "xls" file.
Add a DOT+extension to the filename.
Windows("ocean2.xls").Activate

You might consider to NOT activate nor select anything. Generally it is not needed to run code.

kind regards,
Erik

Thanks. You're absolutely right. I had figured it out, it's been a long day. If you have 4 workbooks open at the same time. How would you change focus, by not using activate?

 

[Norie]

John

Well you wouldn't change 'focus' in the first place.

Try creating references to the relevant workbooks.

For example:

Set wb = Workbooks("ocean2.xls") ' create a reference using the workbook name

Set wbThis = ThisWorkboook ' create reference to workbook the code is in

Set wbAct  = ActiveWorkbook ' create reference to the active workbook

Set wbOpen = Workbooks.Open("C:\MyPath\MyBook.xls") ' open workbook and create a reference to it

Set wbNew = Workbooks.Add ' create new workbook and a reference to it

 

[erik.van.geit]

If you have 4 workbooks open at the same time. How would you change focus, by not using activate?

just tell us what you are trying to do
then we can help more