Hola, tengo esta macro y poquisimo conocimientos del tema.

La macro deberia eliminar la hoja cuyo nombre se escriba en el InputBox nombre hoja, pero se detiene cuando deberia tomar el nombre de la hoja.

Sub EliminaCuenta()

Application.ScreenUpdating = True

Dim NombreHoja As String

Dim Entrada As String

Dim cuenta As Worksheet

Entrada = InputBox("Ingrese contraseña para continuar", "Proceso Protegido")

If Entrada = "nacho" Then

If MsgBox("Estas seguro de borrar una cuenta? No podrá recuperarse", vbQuestion + vbYesNo) = vbYes Then

NombreHoja = InputBox("Escriba un nombre de la cuenta:")

NombreHoja = cuenta<--Esta parte es donde se detiene la macro

If NombreHoja = "" Then Exit Sub

If Nombre.hoja <> "Index" And Nombre.hoja <> "Plantilla" And Nombre.hoja <> "Consolidado" And Nombre.hoja <> "Buscador" Then

cuenta.Delete

End If

End If

Else

MsgBox "Acceso Denegado", vbExclamation, "Acceso no autorizado"

End If

Application.ScreenUpdating = True

End Sub

Espero que puedan guiarme un poco para saber cual es el error.

Muchas gracias

Hola:

Prueba así y fíate en las diferencias con tu código:

Sub EliminaCuenta()

Dim NombreHoja As String

Dim Entrada As String



Entrada = InputBox("Ingrese contraseña para continuar", "Proceso Protegido")

If Entrada = "nacho" Then

   If MsgBox("Estas seguro de borrar una cuenta? No podrá recuperarse", _

              vbQuestion + vbYesNo) = vbYes Then

      NombreHoja = InputBox("Escriba un nombre de la cuenta:")

      If NombreHoja = "" Then Exit Sub

      If NombreHoja <> "Index" And _

         NombreHoja <> "Plantilla" And _

         NombreHoja <> "Consolidado" And _

         NombreHoja <> "Buscador" Then

         Application.DisplayAlerts = False

         On Error GoTo NoExiste

         Sheets(NombreHoja).Delete

         Application.DisplayAlerts = True

      End If

   End If

Else

   MsgBox "Acceso Denegado", vbExclamation, "Acceso no autorizado"

End If

Exit Sub



NoExiste:

   MsgBox "Cuenta inexistente", vbExclamation, "Borrar cuenta"

   Resume Next

End Sub



[/CODE]

Muchisimas gracias Macro Antonio, ya veo que la variable worsheet estaba de mas (entre otros errores), y el On Error me va a venir bien para hacer dos o tres retoques en otras macros.

Me disculpo por la demora en la revision, pero me tenia que ir a trabajar.

TEMA SOLUCIONADO