Visual Basic - Crear doc de EXcel

hola necesito ayuda de como crear un documento en excel y que a la hora de guardar no me muestre mensaje ni ruta (he usado saveas y otro mas y me hace lo mismo, y eso que ya le puse una ruta) tambien necesito que me digan como puedo hacer para ponerle nombre a las hojas en ves de hoja1 ,hoja2, ,etc, por favor

*CREAR UN LIBRO EXCEL
oExcel=CREATEOBJECT("Excel Application")

*::: Guardar como
oHoja:SaveAs( "Archivo.Xls" )

*::: Renombrar las Hojas
oExcel:Sheets("Hoja1"):Name := "Contado"
oExcel:Sheets("Hoja2"):Name := "Credito"
oExcel:Sheets("Hoja3"):Name := "Otros"
oExcel:Sheets("Hoja4"):Name := "Varios"
PARA QUE NO TE SALGA LA RUTA DEBES CANCELAR USAR ESTA LINEA
Application.DisplayAlerts = False