Sub title() MsgBox("Do you want to delete this workbook?", vbYesNo _ + vbCritical + vbDefaultButton2, "Delete Workbook 12.39") End Sub