Можно сделать так, чтобы макрос сам находил ненужные листы по названию, которое лист или диаграмма получает по умолчанию:  
 
Sub Удалить_листы()  
Dim arSh() As String, i As Integer, sh As Object  
ReDim arSh(Sheets.Count)  
For Each sh In Sheets  
   If sh.Name Like "Лист*" Or sh.Name Like "Диаграмма*" Then  
       arSh(i) = sh.Name  
       i = i + 1  
   End If  
Next  
If i = 0 Or i = Sheets.Count Then Exit Sub  
ReDim Preserve arSh(i - 1)  
Sheets(arSh).Select  
If MsgBox("Удалить выделенные листы?", vbExclamation + vbOKCancel) = vbOK Then  
   Application.DisplayAlerts = False  
   Sheets(arSh).Delete  
   Application.DisplayAlerts = True  
End If  
End Sub