Deleting Sheets

Public Function BET_WshDelete(sWshName As String) 
   Application.DisplayAlerts = bDisplayAlerts 
   Sheets(sWshName).Delete 
   Application.DisplayAlerts = True 
End Sub 

The last line is not actually needed as the DisplayAlerts is automatically reset, although it makes your code more readable