Al dar la orden de cerrar se interrumpe la macro

Hola:
Bueno tengo una macro que debe revisar 40 archivos aprox. El problema es que cuando el primero da la orden de abrir el 2, este da la orden de cerrar el 1 y deberia de ejecuatar la condicionalidad para enviar el reporte y abriel el 3 archivo.
El problema es que al dar la orden de cerrar el primer archivo la macro termina sin marcar error.
EJ: libro 2 hoja 3
Private Sub Worksheet_Activate()
Workbooks("Libro1.xls").Close False (opción 1)
Macro1 (Cambia una celda si se cumple una condicion (si(o(d1=<10;g1=<10);F164=1;"")
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
if F164=1 enviar un correo electrónico
Workbooks("Libro1.xls").Close False (opción 2)
Workbooks("Libro3.xls").Worksheets("Hoja3").Activate
Else
Workbooks("Libro1.xls").Close False
Workbooks("Libro2.xls").Worksheets("Hoja3").Activate
End If
End Sub
Lo de Rojo es la orden que interrumpe el proceso si la coloco abajo (opcion 2) no abre el excel 3
Si la coloco arriba no cumple la condicion por lo tanto no envia el correo ni abre la numero 3
Tambien provee aber otra macro y llamarla después de enviar el correo (donde este el cerrar el libro 1 y abrir el 3) pero ocurre lo mismo cierra el libro 1 pero no abre el 3
De ante mano Muchas Gracias