Macro elimina hoja si existe
Hola Experto, necesito una mano para eliminar una hoja si es que existe en el archivo
si no existe que no haga nada o mejor dicho que abra el archivo normalmente...
Pues necesito la macro para cuando se abra el archivo..
Solo tengo esto
Sub SheetsDeletear()
Application.DisplayAlerts = False
Sheets(Array("Hoja4"Select
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
End Sub
muchas gracias..........
si no existe que no haga nada o mejor dicho que abra el archivo normalmente...
Pues necesito la macro para cuando se abra el archivo..
Solo tengo esto
Sub SheetsDeletear()
Application.DisplayAlerts = False
Sheets(Array("Hoja4"Select
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
End Sub
muchas gracias..........
1 Respuesta
Respuesta de Abraham Valencia
1
Sub HayQueLeerMasdeVBA()
Dim Hoja As Worksheet
Application.DisplayAlerts = False
For Each Hoja In Worksheets
If Hoja.Name = "Hoja4" Then
Hoja.Delete
MsgBox "Hoja borrada"
Application.DisplayAlerts = True
Exit Sub
End If
Next Hoja
MsgBox "La hoja no existe"
Application.DisplayAlerts = True
End Sub
Abraham
Dim Hoja As Worksheet
Application.DisplayAlerts = False
For Each Hoja In Worksheets
If Hoja.Name = "Hoja4" Then
Hoja.Delete
MsgBox "Hoja borrada"
Application.DisplayAlerts = True
Exit Sub
End If
Next Hoja
MsgBox "La hoja no existe"
Application.DisplayAlerts = True
End Sub
Abraham
