Mi problema es el siguiente:
Fíjate que estoy utilizando el macro que me enviaste:
Sub Separa_hojas()
Application.ScreenUpdating = False
Dim n As Integer
For n = 1 To Worksheets.Count
Worksheets(n).Copy
ActiveWorkbook.SaveAs ActiveSheet.Name
ActiveWorkbook.Close
Next
End Sub
y me funciona muy bien en 2 archivos, pero en los otros 2 de 11 y 12
MB de tamaño,en estos no me corre el macro sino que me tira un
mensaje de error "exel detectado errores y debe cerrarse", cuando lo
corro en Office 2007 si funciona, pero el problema es que me lo guarda
en .xlsx y yo los necesito en xls cuando le cambio en las opcciones
que me lo guarde en xls me lo sigue guardando en xlsx cuando ejecuto
el macro.
Leer las respuestas