Foros del web, para los que viven de bits

Buenas tardes

Tengo un array de String
Tiempo (1)="1 dia"
Tiempo(2)="1mes"
...
Tiempo(9)="30años"

y en una macro tengo

for i=1 to NTiempo
Sheets.Add
Sheets("Hoja1").Name=Tiempo(i)
next i

Mi problema es que si se corre una o varias veces no siempre tiene el nombre "Hoja1", como puedo seleccionar la "Hojai" para cambiarle el nombre a mi variable que es Tiempo(i)?

Solo un "ligero" cambio:
ActiveSheet.Name=Tiempo(i)

por:
Sheets("Hoja1").Name=Tiempo(i)

Saludos