Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name = "Temp" Then
Application.DisplayAlerts = False
Sheets("Temp").Delete
Application.DisplayAlerts = True
End
End If
Next
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ws As Worksheet
Dim FoundTemp As Boolean
For Each ws In Worksheets
If ws.Name = "Temp" Then
If MsgBox("Would you like to delete the Temp sheet?", vbYesNo, "Delete Temp?") = vbYes Then
Application.DisplayAlerts = False
Sheets("Temp").Delete
Application.DisplayAlerts = True
End
End If
End If
Next
End Sub