Macro para eliminar hoja según nombre en una celda

Hola, acudo por su valiosa ayuda... Necesito una macro que elimine una hoja especifica, los nombres de las hojas se encuentran en la columna E, la primera es E1 y de ahí hasta E30, y la macro debe seleccionar la de hoja que esta nombrada en E1.

1

1 Respuesta

3.688.050 pts. Si me amas, siempre voy a estar en tu corazón; si me...

Te anexo la macro para eliminar la hoja con el nombre de la celda E1

Sub EliminarHoja()
'Por.Dante Amor
    Application.DisplayAlerts = False
    For Each h In Sheets
        If UCase(h.Name) = UCase([E1]) Then
            existe = True
            Exit For
        End If
    Next
    If existe Then
        If Sheets.Count = 1 Then
            MsgBox "Solamente tienes una hoja, no la puedes eliminar", vbExclamation
            Exit Sub
        End If
        Sheets([E1].Value).Delete
        MsgBox "hoja eliminada", vbInformation
    Else
        MsgBox "La hoja no existe", vbExclamation
    End If
End Sub

¡Gracias! Dante mil gracias... la complemente con seguridad mediante calve así:


Sub EliminarProy1()
'Por.Dante Amor
Dim strName As String
    strName = InputBox(Prompt:="Password.", _
          Title:="Authorization", Default:="*****")
        If strName = "*****" Or _
           strName = vbNullString Then
           Exit Sub
        Else
          Select Case strName
            Case "LiderSGI"
                        Application.DisplayAlerts = False
                        For Each h In Sheets
                            If UCase(h.Name) = UCase([E1]) Then
                                existe = True
                                Exit For
                            End If
                        Next
                        If existe Then
                            If Sheets.Count = 1 Then
                                MsgBox "Solamente tienes un Proyecto, no lo puedes eliminar", vbExclamation
                                Exit Sub
                            End If
                            Sheets([E1].Value).Delete
                            MsgBox "Proyecto Eliminado", vbInformation
                        Else
                            MsgBox "El Proyecto no existe", vbExclamation
                        End If
            End Select
       End If
End Sub

Quedo súper...

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas