Desde el libro2 cerrar el libro1 y al cerrar se active userform1 del libro2

Estoy creando un sistema para trabajar entre dos libros excel, uno es la Base de datos (libro1) y el otro es formulario diario (libro2). Necesito desde el libro2 cerrar el libro1, y al cerrarlo se active el userform1 del libro2. Yo he utilizado las siguientes macros, pero me funciona en una secuencia, cuando la corro a viceversa no me funciona, ademas solo me funciona una soa vez, cuando las corro por segunda y posteriormente ya no funcionan, la macro es mas o menos esta:
sub cerrando ()
windows("libro2.xlsm").active
sheets("hoja1").range("h1").select
ActiveCell.FormulaR1C1 = "ok"
windows("libro1.xlsm").Close False
windows("libro2.xlsm").active
end sub
'En el thisworkbook del libro2:
private sub workbook_active ()
if sheets("hoja1").range("h1")="ok" then
userform1.show
end
end if
end sub
' Esto hace que cada ves que la hoja 1 de libro 2, que esta estee active automáticamente inicie el userform1, pero no me funciona bien, puesto que este mismo procedimiento lo necesito a viceversa, es decir cuando cierre el libro1 se inicie un userform1 del libro2, cuando cierre el libro2 (desde el libro1) inicie el userform1 del libro1.