below is the source code of the excel file you're asking....

Sub OptionButton3_Click()
ActiveWindow.SelectedSheets.Visible = False
Sheets("EmployeeTenure").Visible = True
Sheets("EmployeeTenure").Select
End Sub
Sub OptionButton5_Click()
ActiveWindow.SelectedSheets.Visible = False
Sheets("EmployeeResignation").Visible = True
Sheets("EmployeeResignation").Select
End Sub
Sub Button9_Click()
ActiveWindow.SelectedSheets.Visible = False
Sheets("AddNew").Visible = True
Sheets("AddNew").Select
End Sub
Sub Button10_Click()
ActiveWindow.SelectedSheets.Visible = False
Sheets("EmployeeDatabase").Visible = True
Sheets("EmployeeDatabase").Select
End Sub
Sub Button11_Click()
ActiveWindow.SelectedSheets.Visible = False
Sheets("EmployeeRecord").Visible = True
Sheets("EmployeeRecord").Select
End Sub

Sub Button1_Click()
Sheets("EmployeeDatabase").Protect
ActiveWindow.SelectedSheets.Visible = False
Sheets("Main").Visible = True
Sheets("Main").Select
End Sub
Sub EmployeeRecord_Button1_Click()
ActiveWindow.SelectedSheets.Visible = False
Sheets("Main").Visible = True
Sheets("Main").Select
End Sub
Sub EmployeeResignation_Button1_Click()

ActiveWindow.SelectedSheets.Visible = False
Sheets("Main").Visible = True
Sheets("Main").Select
End Sub
Sub EmployeeTenure_Button1_Click()
ActiveWindow.SelectedSheets.Visible = False
Sheets("Main").Visible = True
Sheets("Main").Select
End Sub
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("G13")
Worksheets("EmployeeDatabase").Range("B" & i)
Worksheets("AddNew").Range("G16")
Worksheets("EmployeeDatabase").Range("C" & i)
Worksheets("AddNew").Range("G15")
Worksheets("EmployeeDatabase").Range("D" & i)
Worksheets("AddNew").Range("G14")
Worksheets("EmployeeDatabase").Range("E" & i)
Worksheets("AddNew").Range("G17")
Sheets("AddNew").Select
Range("G13:G16").Select
Selection.ClearContents
Range("G13").Select
End If
Worksheets("EmployeeDatabase").Protect
End Sub

Sub Button6_Click()

End Sub
Sub Button7_Click()
ActiveWindow.SelectedSheets.Visible = False
Sheets("Main").Visible = True
Sheets("Main").Select
End Sub
Sub OptionButton4_Click()
Sheets("EmployeeTraining").Visible = True
Sheets("EmployeeTraining").Select
End Sub
Sub EmployeeTraining_Button1_Click()

End Sub
Sub Button2_Click()
ActiveWindow.SelectedSheets.Visible = False
Sheets("Main").Select
End Sub
Sub EmployeeDatabase_Button2_Click()

ActiveWindow.SelectedSheets.Visible = False
Sheets("main").Visible = True
Sheets("Main").Select
End Sub
Sub Training_Button2_Click()

ActiveWindow.SelectedSheets.Visible = False
Sheets("Main").Visible = True
End Sub
Sub Button13_Click()
ActiveWindow.Close

End Su

--
tweety12
-----------------------------------------------------------------------
tweety127's Profile: http://www.excelforum.com/member.php...fo&userid=3467
View this thread: http://www.excelforum.com/showthread.php?threadid=54784