SoloCodigo

hola a todos como estan, bueno aqui estoy de nuevo con una incertidumbre resulta que tengo una pequeña aplicacion en la cual a traves de una busqueda abre un archivo excel en el cual almacena por filas y columnas en las lineas que yo deseo pero mi consulta es la siguiente, uno en un archivo excel puede terner varias hojas cierto y bueno me gustaria saber como almacenar en un archivo excel que se llame por ejemplo "prueba.xls" y en  ese archivo tengo tres libros "hoja1" "hoja2" y "hoja3" como puedo decirle al visual que quiero, que almacene los datos en prueba.xls en libro1 lo siguiente "hola" y en libro2 "mamá", si alguien me puede ayudar seria genial bueno les dejo un pequeño code que tengo y quisiera saber si se puede mejorar ese mismo code o hay que hacer algo nuevo.

Sub imprimir()
Dim ApExcel As Variant
Set ApExcel = CreateObject("Excel.application")
ApExcel.Visible = True
ApExcel.Workbooks.Open (App.Path & "\Formulario de Soporte Tecnico a Terreno.xls")
ApExcel.cells(1, 1).Font.Size = 12
ApExcel.cells(8, 7).formula = Text1.Text 'folio
ApExcel.cells(9, 4).formula = Text4.Text 'nombre usuario
ApExcel.cells(9, 7).formula = Text6.Text 'fono anexo
ApExcel.cells(10, 4).formula = Combo1.Text 'direccion
ApExcel.cells(10, 7).formula = Text5.Text 'oficina
ApExcel.cells(11, 7).formula = Combo3.Text 'tecnico
ApExcel.cells(14, 3).formula = Text7.Text 'problema
Set ApExcel = Nothing
End Sub

bueno este es el code que yo ocupo si alguien sabe como se puede lo que les pido se los agradeceria mucho adios y gracias.