try
Sub checkmsgbox()
Dim i As Integer
results = MsgBox("Are you sure you want to add new employee?", vbYesNo)
If results = vbYes Then MsgBox "OK"
End Sub


--
Don Guillett
SalesAid Software

"tweety127" wrote
in message ...

hi....
im working on a project right now and one of its functions is to add
persons on the worksheet....my problem is, how can i stop excel from
adding the person i input if i press Close or No button?...because what
is happening now is that, even if i press the close or no button, still,
that record is added on the worksheet, below is the source code, please
advise:

Sub Button5_Click()

Dim i As Integer
Dim results As Integer
results = MsgBox("Are you sure you want to add new employee?",
vbQuestion, "Add New Employee")

If results = vbOK Then

i = 4
Do While Worksheets("EmployeeDatabase").Range("A" & i) < ""
i = i + 1
Loop
Worksheets("EmployeeDatabase").Unprotect
Worksheets("EmployeeDatabase").Range("A" & i) =
Worksheets("AddNew").Range("G12")
Worksheets("EmployeeDatabase").Range("B" & i) =
Worksheets("AddNew").Range("G16")
Worksheets("EmployeeDatabase").Range("C" & i) =
Worksheets("AddNew").Range("G14")
Worksheets("EmployeeDatabase").Range("D" & i) =
Worksheets("AddNew").Range("G15")
Worksheets("EmployeeDatabase").Range("E" & i) =
Worksheets("AddNew").Range("G13")
Worksheets("EmployeeDatabase").Range("F" & i) =
Worksheets("AddNew").Range("G17")
Sheets("AddNew").Select
Range("G13:G16").Select
Selection.ClearContents
Range("G13").Select
End If
Worksheets("EmployeeDatabase").Protect
End Sub


--
tweety127
------------------------------------------------------------------------
tweety127's Profile:
http://www.excelforum.com/member.php...o&userid=34673
View this thread: http://www.excelforum.com/showthread...hreadid=551394