Hi Raizwai,
I do not beleive that you can change the default alerts.
You could however add your own messages and responses, e.g.:
'=============>>
Public Sub Tester001()
Dim WB As Workbook
Dim res As VbMsgBoxResult
Set WB = Workbooks("YourBook.xls")
Application.DisplayAlerts = False
If Not WB.Saved Then
res = MsgBox(Prompt:="This File includes changes " _
& "which have not been saved. Do you " _
& "wish to save these changes?", _
Buttons:=vbYesNo + vbCritical, _
Title:="To Save Or Not To Save?")
End If
Workbooks("Cartella1.xls").Close Savechanges:=res = vbYes
Application.DisplayAlerts = True
End Sub
'<<=============