Excel y visual basic

Para crear las hojas, adapta el siguiente código, pero para cambiar el nombre, ahí si tienes que ver como hacerlo:
Dim oObjeto As Object
Dim oLibro As Object
'Se crea el Objeto
Set oObjeto = CreateObject("Excel.Application")
'
' Macro1 Macro
' Macro grabada el 28/08/2005 por David René Enciso Badillo
'
'
oObjeto.application.Visible = True
'ChDir "I:\intranet\SACPP\superdome\exportacion"
Set oLibro = oObjeto.workbooks.Open(mdiPrincipal.CommonDialog1.FileName)
'Workbooks.Open FileName:= _
' "I:\intranet\SACPP\superdome\exportacion\05Internet.xls"
If InStr(1, Me.cboIDF.Text, "R") <> 0 Then
' se trata de sur
oLibro.worksheets("IDF SUR").Select
Else
' se trata de norte
oLibro.worksheets("IDF NORTE").Select
End If
'oLibro.worksheets("Jul 05").Select
'oLibro.worksheets("Jul 05").Range("G24").Select
'oLibro.worksheets("Jul 05").Range("G24").Value = "15"
oLibro.Close
Set oLibro = Nothing
oObjeto.quit
Set oObjeto = Nothing