Fíjate en las líneas siguientes:
Dim objApp As Object ' Aplicación
Set objApp = GetObject(, "Excel.Application")
Dim objWb As Object ' WorkBook
Set objWb = objApp.WorkBooks(1)
'Aquí viene la parte que más te interesa
Dim objSh As Object ' WorkSheet
' Para añadir una hoja y ponerle un nombre:
Set objSh = objWb.Worksheets.Add()
objSh.Name = "Mi nueva hoja"
'Para obtener la referencia a la última hoja, saber cómo se llama y cambiarle el nombre
Set objSh = objWb.Sheets(objWb.Worksheets.Count)
MsgBox objSh.Name
objSh.Name = "Nuevo nombre"
'Para obtener la referencia a la primera hoja
Set objSh = objWb.Sheets(1)
'Para obtener la referencia a una hoja por su nombre
Set objSh = objWb.Sheets("Hoja x")
A partir de aquí, ya sabes como va el resto...
Suerte.
