Excel - ELIMINAR LAS ULTIMAS CELDAS

Como le puedo hacer para indicarle a Excel que me elimine las ultimas hojas, y que unicamente me deje las primeras 2 hojas del libro

Perdon las ultimas hojas,
Como le puedo hacer para indicarle a Excel que me elimine las ultimas hojas, y que unicamente me deje las primeras 2 hojas del libro

dim csht as integer
For csht = 3 To ActiveWorkbook.Sheets.Count 'worksheet or sheets
Sheets(csht).Activate
activatesheet.delete
Next csht

Creo que esto funciona

dim csht as integer
For csht = ActiveWorkbook.Sheets.Count to 3 step -1
Sheets(csht).Activate
activatesheet.delete
Next csht

tal vez este es mejor para empezar de a atras para delante porque en la anterior rutina no se que pase si ya no existen las paginas al estarlas borrando, prueba este mejor...........

Esto lo pego en WORKSHEET o en un MODULO???????

Depende ......Si quieres que suceda al abrir el archivo entonces en el AUTO_OPEN, si quieres controlarlo tu lo puedes hacer poniendo un boton y poniendo el codigo en la rutina de CLICK.......

todo depende......

saludos