ERROR EN MACRO PARA ELIMINAR HOJA ACTIVA

[Leonardo Briceño]

Hola amigos de AE. tengo un problema con una macro que antes funcionaba bien. La macro es para eliminar la hoja activa. Hay 2 msgbox para confirmar la decisión de eliminar. Antes funcionaba bien pero ahora me da un error y cierra excel.

En el archivo anexo. la macro funciona bien

Y las 4 figuras que incluyo en el archivo corresponden al mensaje que me da en el archivo original.

Alguna idea de cual puede ser el problema u otro comando que haga la misma operación.

Gracias!1

eliminar hoja.xlsm

[Leonardo Briceño]

El error es el siguiente:

Se ha producido el error 2147417848 (80010108) en tiempo de ejecución:

error de automatización

[ikanni]

He probado la macro y a mi me funciona. Aunque yo lo haría de otra manera.

Por ejemplo

Sub EliminarReceta()
   Dim resp As Long
   resp = MsgBox("¿ESTÁ SEGURO DE ELIMINAR ESTA RECETA?", _
                 vbQuestion + vbYesNo, "Confirmación eliminación")
   If resp = 6 Then
      Dim ws As Worksheet
      Set ws = ThisWorkbook.ActiveSheet
      Application.DisplayAlerts = False
      ws.Delete
      Application.DisplayAlerts = True
   End If
End Sub

 

[Antoni]

Yo, ahorrando como siempre:

 

Sub EliminarReceta()
If MsgBox("¿ESTÁ SEGURO DE ELIMINAR ESTA RECETA?", vbYesNo + vbQuestion) = vbYes Then ActiveSheet.Delete
End Sub

 

[Leonardo Briceño]

Hola @Antoni @ikannimuchas gracias por sus respuestas. Efectivamente ambas soluciones funcionan, sin embargo, en el archivo original no la hace. Estuve viendo el archivo original por todos lados y descubrí la razón del error. En el archivo original hay un gráfico. Si elimino el gráfico las macros propuestas por ustedes funcionan, pero si el gráfico está presente (que es como va a estar siempre) pues da el error y cierra excel.

Anexo les envío el archivo sin datos pero con el gráfico para que vean el comportamiento del error.

Gracias

ERROR AL ELIMINAR HOJA.xlsm

[Antoni]

Eliminando todos los objetos previamente, funciona:

Sub EliminarReceta()
If MsgBox("¿ESTÁ SEGURO DE ELIMINAR ESTA RECETA?", vbYesNo + vbQuestion) = vbYes Then
   ActiveSheet.Shapes.SelectAll
   Selection.Delete
   ActiveSheet.Delete
End If
End Sub

 

[Leonardo Briceño]

Hola @Antoni, aun persiste. Ejecuto la macro y sigue dando el error:

Se ha producido el error 2147417848 (80010108) en tiempo de ejecución:

error de automatización

y luego el cuadro que dice que Excel ha dejado de trabajar

[Leonardo Briceño]

@Antoni con esta si funciona bien, que opinas?

Sub EliminarReceta()
If MsgBox("¿ESTÁ SEGURO DE ELIMINAR ESTA RECETA?", vbYesNo + vbQuestion) = vbYes Then
   ActiveSheet.ChartObjects("Gráfico 1").Select
   ActiveChart.Parent.Delete
   ActiveSheet.Delete
End If
End Sub

 

[Leonardo Briceño]

@AntoniEn el archivo original con la hoja desprotegida funciona perfectamente pero con la hoja protegida da el siguiente error:

error 2147024809 (80070057) en tiempo de ejecución

el valor especificado se encuentra fuera de los limites

[Leonardo Briceño]

Listo @Antonimuchas gracias, le hice los ajustes pertinentes para desbloquear y funciona a la perfeccion.?