I launch a second workbook from within a macro. This macro must stop
executing until the second workbook is closed again.
Version is Excel 2002.

Hi Chris,

Try putting the instruction to open the second workbook in one procedure,
e.g:

'=============
Public Sub Tester1()
Workbooks.Open Filename:="Workbook2.xls"
End Sub
'<<=============

Then put the remaining instructions in the second workbook's close event
code, e.g.:

'=============
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Code to run when Workbook2 closes
End Sub
'<<=============

---
Regards,
Norman


"Chris De Luyck" <Chris De wrote in message
...
I launch a second workbook from within a macro. This macro must stop
executing until the second workbook is closed again.
Version is Excel 2002.

Hi:

try Do While ...Loop statement ,

Dim wbk As Workbook
Sub test()
Set wbk = Workbooks.Add
On Error GoTo ErrorHandler
Do While TypeName(wbk) = "Workbook"
'your code
'..............
DoEvents
Loop
MsgBox "Workbooks is close"
ErrorHandler:
Set wbk = Nothing
End Sub

--
天行å�¥ï¼Œå�›å*�以自強ä¸�æ�¯
地勢å�¤ï¼Œå�›å*�以厚德載物

http://www.vba.com.tw/plog/


"Chris De Luyck" wrote:

I launch a second workbook from within a macro. This macro must stop
executing until the second workbook is closed again.
Version is Excel 2002.

Another option is to issue a scheduled macro, using OnTime, to check if the
workbook is open, if so, reissue it again for a later time, if not, the rest
of your code..

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"chijanzen" wrote in message
...
Hi:

try Do While ...Loop statement ,

Dim wbk As Workbook
Sub test()
Set wbk = Workbooks.Add
On Error GoTo ErrorHandler
Do While TypeName(wbk) = "Workbook"
'your code
'..............
DoEvents
Loop
MsgBox "Workbooks is close"
ErrorHandler:
Set wbk = Nothing
End Sub

--
???,???????
???,???????

http://www.vba.com.tw/plog/


"Chris De Luyck" wrote:

I launch a second workbook from within a macro. This macro must stop
executing until the second workbook is closed again.
Version is Excel 2002.