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 Respuesta
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...
