MSbox query RE VBOkCancel

**AppSupportKarl** · 05-19-2011, 07:27 AM

Hello,

this may sem like a relatively simple question. hoepfully it is!

i have a text box linked to a cell, and when the text box loses focus, i have a message appear for confirmation. if the user selects 'cancel' i want to text box to clear out. any suggestions?

Private Sub TextBox1_Change()
Range("A1") = TextBox1.Value

End Sub


Private Sub TextBox1_LostFocus()

MsgBox "Is this correct?", vbOKCancel, "Confirmation"

End Sub

**mohd9876** · 05-19-2011, 07:58 AM

try this:

[code]
Private Sub TextBox1_LostFocus()
Dim Answer
Answer = MsgBox ("Is this correct?", vbOKCancel, "Confirmation")
If Answer = vbCancel then
TextBox1.Value = ""
end if

End Sub