Excel - Como juntar 2 condiciones o formulas en una sola

Hola a todos una pregunta como puedo juantar estas 2 condiocnes 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

Como puedo hacerlo en uno solo?.
Gracias...

Private Sub Workbook_BeforeClose(Cancel As Boolean)

ActivarMenu
ActiveWorkbook.Close Savechanges:=False

End Sub

Gracias legarda, pero los junte y me permite Guardar Como y eso no quiero que me aparesca.
Gracias...

Legarte revise bien y me funciono gracias por la ayuda.