Renombrar hojas de un archivo excel

[colod10]

Buenas tardes, estoy teniendo un problema al renombrar hojas de excel desde el vba de access.
este es parte del codigo que estoy usando:

With MiExcel
.Sheets("hoja1").Name = "PLANILLA N° " & N_Planilla & " - MONTECARLO"
.Sheets("hoja2").Name = "PLANILLA N° " & N_Planilla & " - ELDORADO"
.Sheets("hoja3").Name = "PLANILLA N° " & N_Planilla & " - WANDA"
.Sheets("hoja4").Name = "PLANILLA N° " & N_Planilla & " - PUERTO RICO"
.Sheets("hoja5").Name = "PLANILLA N° " & N_Planilla & " - JARDIN AMERICA"
End With

y me tira "Se ha producido el error '9' en tiempo de ejecución: Subíndice fuera del intervalo" y no entiendo porque, revise el archivo de excel y si estan las 5 hojas

[Fayad]

Hola!

Prueba con esto:

Código: Seleccionar todo

With MiExcel
.Sheets(1).Name = "PLANILLA N° " & N_Planilla & " - MONTECARLO"
.Sheets(2).Name = "PLANILLA N° " & N_Planilla & " - ELDORADO"
.Sheets(3).Name = "PLANILLA N° " & N_Planilla & " - WANDA"
.Sheets(4).Name = "PLANILLA N° " & N_Planilla & " - PUERTO RICO"
.Sheets(5).Name = "PLANILLA N° " & N_Planilla & " - JARDIN AMERICA"
End With