Hi!

I'm not sure what you need, but try this one.

Private Sub workbook_beforeclose(cancel As Boolean)
Application.DisplayAlerts = False
Workbooks("YourWorkbookName").Sheets("What If").Delete
Application.DisplayAlerts = True
ActiveWorkbook.Save
End Sub

Regards,
Kari J Keinonen