Antes de cerrar el archivo...

Saludos grupo:

Busco ayuda para una situacion que me reporta error. Es la siguiente:

Deseo que Excel detecte el momento en que lo han de cerrar y antes de
cerrarse el archivo haga:
1) vaya a la hoja oculta donde estan los campos a borrar
2) borre el contenido de dos rangos
3) vuelva a ocultar la hoja
4) salve el archivo
5) salga (o cierre) de Excel

Para el anterior propósito estoy usando el siguiente código, pero me
reporta error:

Private Sub Workbook_BeforeClose()
   Application.ScreenUpdating = False
   Application.DisplayAlerts = False
   A1.Visible = xlSheetVisible           'hace visible la hoja de
trabajo
    Range("_RUno").Clear                'Borra rango _Uno
    Range("_RDos").Clear                'Borra rango _Dos
   ActiveSheet.Visible = xlSheetVeryHidden         'ocultar la hoja de
trabajo
   A0.Visible = xlSheetVisible            'hace visible hoja menú
   A0.Select                                           'Selecciona
hoja menú
   Application.ScreenUpdating = True
   Application.DisplayAlerts = True
   ActiveWorkbook.Save                    'salva el archivo
'End Sub

Por favor, alquien que le de una mirada al código y me diga cual es la
falla para que no corra.

Gracias,

Manuel