ELIMINAR TODAS LAS HOJAS EXCEPTO "HOJA1" CON MACRO

Estoy intentando crear una macro que borre todas las hojas de un libro
excepto "Hoja1".

No estoy muy seguro sobre lo que quieres, pero si estás creando un libro
nuevo y quieres que tenga una sola hoja puedes probar esto

Sub Crear_Libro()
Dim HojasEnLibro as Integer

HojasEnLibro = Application.SheetsInNewWorkbook

Application.SheetsInNewWorkbook = 1
Workbooks.Add

Application.SheetsInNewWorkbook = HojasEnLibro

End Sub

Saludos
Alex

"MarianoB" escribió en el mensaje
news:
Buenos días grupo,

Estoy intentando crear una macro que borre todas las hojas de un libro
excepto "Hoja1" con el siguiente código pero a parece un error:
'
'ELIMINAR TODAS LAS HOJAS EXCEPTO HOJA1
Sub ELIMINA_HOJAS()
Dim ws As Worksheet
Dim A, B, C, D As String
If ActiveWorkbook.Sheets.Count > 1 Then
For Each ws In Worksheets
If ws.Name <> "Hoja1" Then
A = A & """" & ws.Name & """" & ", "
End If
Next ws
B = Len(A)
C = Mid(A, 2, B - 4)
Sheets(Array(C)).Select
ActiveWindow.SelectedSheets.Delete
End If
End Sub
'
La variable C contiene toda la cadena que debería ponerse en el array
pero aparece el error: '424' en tiempo de ejecucción: Se requiere un
objeto."
¿El problema es que en vez del nombre de la variable debería estar la
cadena?, y si es así ¿Cómo se hace? ó ¿he planteado mal la macro?

Muchas gracias a todos.

Estoy intentando crear una macro que borre todas las hojas de un libro
excepto "Hoja1".

No estoy muy seguro sobre lo que quieres, pero si estás creando un libro
nuevo y quieres que tenga una sola hoja puedes probar esto

Sub Crear_Libro()
Dim HojasEnLibro as Integer

HojasEnLibro = Application.SheetsInNewWorkbook

Application.SheetsInNewWorkbook = 1
Workbooks.Add

Application.SheetsInNewWorkbook = HojasEnLibro

End Sub

Saludos
Alex

"MarianoB" escribió en el mensaje
news:
Buenos días grupo,

Estoy intentando crear una macro que borre todas las hojas de un libro
excepto "Hoja1" con el siguiente código pero a parece un error:
'
'ELIMINAR TODAS LAS HOJAS EXCEPTO HOJA1
Sub ELIMINA_HOJAS()
Dim ws As Worksheet
Dim A, B, C, D As String
If ActiveWorkbook.Sheets.Count > 1 Then
For Each ws In Worksheets
If ws.Name <> "Hoja1" Then
A = A & """" & ws.Name & """" & ", "
End If
Next ws
B = Len(A)
C = Mid(A, 2, B - 4)
Sheets(Array(C)).Select
ActiveWindow.SelectedSheets.Delete
End If
End Sub
'
La variable C contiene toda la cadena que debería ponerse en el array
pero aparece el error: '424' en tiempo de ejecucción: Se requiere un
objeto."
¿El problema es que en vez del nombre de la variable debería estar la
cadena?, y si es así ¿Cómo se hace? ó ¿he planteado mal la macro?

Muchas gracias a todos.

Una opcion mas:

Sub test()
Worksheets("Sheet1").Copy
ActiveWorkbook.SaveAs "Prueba.xls"
End Sub

Saludos,
KL

>