forgot to include the

Application.DisplayAlerts = False
....
Application.DisplayAlerts = True

part


On 3 Lis, 10:10, Jarek Kujawa wrote:
Sub delsheets()
Dim sh as Sheet

For Each sh in ActiveWorkbook.Sheets
If sh.Name<"Sheet1" Then
sh.Delete
End If
Next sh

End Sub

On 3 Lis, 09:46, Ms-Exl-Learner wrote:



Please help to delete all the sheets in a workbook except the First sheet
(i.e.) Sheet1.

Thanks for reading.

--------------------
(Ms-Exl-Learner)
--------------------- Ukryj cytowany tekst -

- Poka¿ cytowany tekst -