On Jul 18, 10:33*am, GS wrote:
Try...

Test Menu.xlsm:

Sub OpenTestWB()
* Workbooks.Open("C:\Data\TestWb.xlsm")
End Sub

Sub CloseThisWB2()
* ThisWorkbook.Close SaveChanges:=False
End Sub

TestWB.xlsm:

Sub CloseThisWB1()
* ThisWorkbook.Close SaveChanges:=False
End Sub

--
Garry

Free usenet access athttp://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc

Garry,

Thank you this worked, but I'd like to understand why my original code
works on some machines and not others.

Thanks again for your help.

Rob