softman
10-04-2010, 11:01 PM
I have the following code below:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Response As Long
Response = MsgBox("Do you really want to quit?", vbYesNo)
If Response = vbNo Then
Cancel = True
Else: Me.Saved = True
Application.OnKey "%{F11}", ""
Application.OnKey "%{F8}", ""
End If
End Sub
When you click the exit the mesaahe box pop up but the heading show "Microsoft Excel" .
Is it possible to change the Word "Microsoft Excel" to "Exit" or any thing else?
Many thanks
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Response As Long
Response = MsgBox("Do you really want to quit?", vbYesNo)
If Response = vbNo Then
Cancel = True
Else: Me.Saved = True
Application.OnKey "%{F11}", ""
Application.OnKey "%{F8}", ""
End If
End Sub
When you click the exit the mesaahe box pop up but the heading show "Microsoft Excel" .
Is it possible to change the Word "Microsoft Excel" to "Exit" or any thing else?
Many thanks