ActiveWorkbook.Close False
Application.DisplayAlerts = False
Application.DisplayAlerts = True
public g_wbToOpen as workbook
sub foo()
set g_wbtoopen = workbooks.open(filename:="g:\...")
end sub
sub oof()
if not g_wbtoopen is nothing then
application.displayalerts = false
g_wbtoopen.close false
application.displayalerts = true
end if
end sub