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 at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc