Macro excel para cambiar de nombre Hoja y moverla, error al usar por segunda vez
Primero les comento lo que hago con esta macro,
Selecciona el ultimo valor de una tabla dinámica, se abre el detalle de la misma en otra hoja, se cambia el nombre de la hoja, y luego se mueve esa hoja a un libro nuevo.
El problema es el siguiente
Cuando la ejecuto por primera vez, funciona perfecto, pero si vuelvo a ejecutarla, el excel se cuelga y se cierra.
Al realizar paso por paso el macro (en la segunda vez ejecutado), se cuelga cuando es el momento de cambiar el nombre
activesheet.name="ok"
Les dejo el macro, para ver si alguien sabe cual es el problema
Sub Informe_1()
'Desactivamos actualización de pantalla
Application.ScreenUpdating = False
'desprotejo libro y hoja
ThisWorkbook.Unprotect
ActiveSheet.Unprotect Password:="soloahora"
'selecciono ultimo valor de tabla dinamica
countult = Cells(Rows.Count, 2).End(xlUp).Row
Cells(countult, 2).Select
'muestro detalle de tabla dinamica de la celda total
ActiveCell.ShowDetail = True
'Seleccionamos la hoja con el detalle
ActiveSheet.Select
'Nombramos la pestaña
ActiveSheet.Name = "ok"
'Movemos la hoja a un libro nuevo
ActiveSheet.Move
Application.DisplayAlerts = False
'Guardamos la hoja con el nombre correspondiente y cerramos libro
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & ActiveSheet.Name
ActiveWorkbook.Close False
ActiveSheet.Protect Password:="soloahora"
ThisWorkbook.Protect
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub