Como juntar 2 condiciones o fórmulas en una sola

Hola a todos una pregunta como puedo juntar estas 2 condiciones en una sola:

Condición 1:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActivarMenu
End Sub

Condición 2:
Private Sub Workbook_BeforeClose(Cancel As Boolean)

ActiveWorkbook.Close Savechanges:=False

End Sub

Estas condiciones las tengo que colocar en: ThisWorkbook

¿Cómo puedo hacerlo en uno solo?.
Gracias...