B
Bre-x
Hi,
I have this code that allows me to delete all sheet but the one i have
selected:
Sub DelSheet()
For Each sheete In Sheets
If ActiveSheet.Index <> sheete.Index Then
Application.DisplayAlerts = False
sheete.Delete
Application.DisplayAlerts = True
End If
Next sheete
End Sub
Is there a way to change this code to allow me to delete all but the
currently selected plus a sheet called "SS"?
Thank you all,
Bre-x
I have this code that allows me to delete all sheet but the one i have
selected:
Sub DelSheet()
For Each sheete In Sheets
If ActiveSheet.Index <> sheete.Index Then
Application.DisplayAlerts = False
sheete.Delete
Application.DisplayAlerts = True
End If
Next sheete
End Sub
Is there a way to change this code to allow me to delete all but the
currently selected plus a sheet called "SS"?
Thank you all,
Bre-x