Anexar hojas a un libro excel en vez de crear libros

HOLA: LES CUENTO: Hago una exportación desde una
base ACCESS a un libro excel. Mi pregunta seria como puedo ir
agregándole hojas a ese libro. O sea al principio crear el libro y la
hoja para la primera exportación, y desde la próxima exportación ir
anexando hojas nada mas, porque este código me crea un libro en cada
exportación y me es necesario solo tener un libro con varias hojas...

este es el código

Dim H As Long
Dim V As Long
Dim MiBase As Database
Dim MiTabla As Recordset
On Error GoTo ErrorExcel
Dim objExcel As Excel.Application
Set MiBase = OpenDatabase(CurrentProject.Path & "\BASE_5.mdb")
'Esta linea anterior, por si deseamos abrir una tabla de cualquier
'otra MDB. En este ejemplo abrimos una tabla Local (Excel).
'Set MiBase = CurrentDb
Set MiTabla = MiBase.OpenRecordset("SELECT * FROM TBL_ATENCION_EXCEL ORDER BY APELLIDO ASC", dbOpenDynaset)
If MiTabla.RecordCount = 0 Then
MsgBox "La base de datos esta vacía", vbCritical + vbOKOnly, "AVISO"
Exit Sub
End If
Set objExcel = New Excel.Application
objExcel.Visible = True
'determina el numero de hojas que se mostrara en el Excel
objExcel.SheetsInNewWorkbook = 1
'Crea el Libro
objExcel.Workbooks.Add
objExcel.Sheets.Add
With objExcel.ActiveSheet
Dim TITULO As String
TITULO = Forms!FRM_LISTAS_GERENCIA!LISTA_1
objExcel.ActiveSheet.Name = TITULO
.Cells(3, 1) = "ID_ATENCION"
.Cells(3, 2) = "FECHA_ATENCION"
............ETC.
les puse solo esta parte del código porque es un poco largo, pero si necesitan les publico todo...me avisan.