same as add sheets:
Sub DeleteSheets()
Dim arrNames
Dim n As Integer
Application.DisplayAlerts = False
arrNames = Selection
For n = LBound(arrNames) To UBound(arrNames)
Sheets(arrNames(n, 1)).Delete
Selection.Resize(, 5).ClearContents
Next
Application.DisplayAlerts = True
End Sub
Regards
Claus Busch
Code is in a module and I get an error on this line.
Tried it in the Summary sheet
vb editor first and same error.
For n = LBound(arrNames) To UBound(arrNames)
Howard