Sub DeleteAllWorkSheets(Byval wrkbk as Workbook)
 
 
 
	Dim I As Integer
 
 
 
	Application.ScreenUpdating = False
 
	Application.DisplayAlerts = False
 
 
 
	For I = wrkbk .Worksheets.Count To 1 Step -1
 
	If wrkbk (I).Name <> "Sheet1" Then wrkbk (I).Delete
 
	Next I
 
 
 
	Application.ScreenUpdating = True
 
	Application.DisplayAlerts = True
 
 
 
	 End Sub