Como cerrar hoja excel después de ejecutar macro

Después de mirar por la red y no verlo claro, me dirijo a vosotros con el asunto.

Me explico. Tengo un botón para guardar en pdf la hoja de excel y deseo que se cierre la aplicación cuando se ejecuta la macro.

La pregunta en cuestión es:

¿Qué comandos y donde los pongo para lo que quiero hacer?

Espero haberme explicado.

Gracias por vuestro tiempo.

Os indico como tengo las macros:

En thisworkbook tengo esto:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Sheets("Hoja1").Range("L21").Value = "" Then
Cancel = True
MsgBox "Este dato es muy importante. Poner nombre al archivo. Recuerda ponerlo correctamente."

Else
ActiveWorkbook.Close savechanges:=True
End If

End Sub

Private Sub Workbook_Open()
'ajusta el scroll a varias o todas las hojas con rangos diferentes
For Each Sh In Sheets
Select Case Sh.Name
Case Is = "Hoja1"
Sh.ScrollArea = "A1:S33"
'más hojas
End Select
Next Sh
End Sub

en modulo 1 tengo :

Sub EXPORTARCUADRECAJAPDF()

On Error Resume Next

Dim RUTA, ARCHIVO As String
RUTA = "C:\COMPARTIDA\2020\CuadreCajaPDF\"
ARCHIVO = Range("L21")
MkDir (RUTA)
Worksheets("Hoja1").PageSetup.PrintArea = "B2:N33"
Worksheets("Hoja1").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=RUTA & ARCHIVO & ".PDF", QUALITY:=xlQualityStandard, _
INCLUDEDOCPROPERTIES:=True, IGNOREPRINTAREAS:=False, OPENAFTERPUBLISH:=False

End Sub