I would like to have my userform save all of the data typed in it so that when the user is viewing the spreadsheet could go back to the userform and still see the data that was previously saved from the userform to the spreadsheet.

Please keep explanation as simple as possible as I'm new.
Thanks!


'THIS IS THE CREATE MODEL PROFILE BUTTON!!
Private Sub cmdCreate_Click()

ActiveWorkbook.Sheets("ExistingBranchProfile").Activate
Range("B3").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(2, 1).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = txtName.Value
ActiveCell.Offset(0, 5) = txtCode.Value

If chkMembership = True Then
ActiveCell.Offset(1, 1).Value = "Membership"
Else
ActiveCell.Offset(1, 1).Value = ""
End If

If chkChild = True Then
ActiveCell.Offset(2, 1).Value = "Child Care/After School"
Else
ActiveCell.Offset(2, 1).Value = ""
End If

If chkDay = True Then
ActiveCell.Offset(3, 1).Value = "Day Camp"
Else
ActiveCell.Offset(3, 1).Value = ""
End If

If chkYouth = True Then
ActiveCell.Offset(4, 1).Value = "Youth Sports"
Else
ActiveCell.Offset(4, 1).Value = ""
End If

If chkOthers = True Then
ActiveCell.Offset(5, 1).Value = "Others"
Else
ActiveCell.Offset(5, 1).Value = ""
End If

'PAGE ONE************************************************
'YEAR 1 -PAGE ONE
ActiveCell.Offset(8, 1) = txtYear1.Value
ActiveCell.Offset(8, 3) = txtAvePart1.Value
ActiveCell.Offset(8, 5) = txtAveFee1.Value
ActiveCell.Offset(8, 7) = txtContrib1.Value
ActiveCell.Offset(8, 9) = txtEmplo1.Value
ActiveCell.Offset(8, 11) = txtOther1.Value

'YEAR 2 -PAGE ONE
ActiveCell.Offset(9, 1) = txtYear2.Value
ActiveCell.Offset(9, 3) = txtAvePart2.Value
ActiveCell.Offset(9, 5) = txtAveFee2.Value
ActiveCell.Offset(9, 7) = txtContrib2.Value
ActiveCell.Offset(9, 9) = txtEmplo2.Value
ActiveCell.Offset(9, 11) = txtOther2.Value

'YEAR 3 -PAGE ONE
ActiveCell.Offset(10, 1) = txtYear3.Value
ActiveCell.Offset(10, 3) = txtAvePart3.Value
ActiveCell.Offset(10, 5) = txtAveFee3.Value
ActiveCell.Offset(10, 7) = txtContrib3.Value
ActiveCell.Offset(10, 9) = txtEmplo3.Value
ActiveCell.Offset(10, 11) = txtOther3.Value

'YEAR 4 -PAGE ONE
ActiveCell.Offset(11, 1) = txtYear4.Value
ActiveCell.Offset(11, 3) = txtAvePart4.Value
ActiveCell.Offset(11, 5) = txtAveFee4.Value
ActiveCell.Offset(11, 7) = txtContrib4.Value
ActiveCell.Offset(11, 9) = txtEmplo4.Value
ActiveCell.Offset(11, 11) = txtOther4.Value

'YEAR 5 -PAGE ONE
ActiveCell.Offset(12, 1) = txtYear5.Value
ActiveCell.Offset(12, 3) = txtAvePart5.Value
ActiveCell.Offset(12, 5) = txtAveFee5.Value
ActiveCell.Offset(12, 7) = txtContrib5.Value
ActiveCell.Offset(12, 9) = txtEmplo5.Value
ActiveCell.Offset(12, 11) = txtOther5.Value
ActiveCell.Offset(13, 1) = TextBox3.Value

'PAGE TWO************************************************
'YEAR 1 -PAGE TWO
ActiveCell.Offset(15, 3) = txtAvePart6.Value
ActiveCell.Offset(15, 5) = txtAveFee6.Value
ActiveCell.Offset(15, 7) = txtContrib6.Value
ActiveCell.Offset(15, 9) = txtEmplo6.Value
ActiveCell.Offset(15, 11) = txtOther6.Value

'YEAR 2 -PAGE TWO
ActiveCell.Offset(16, 3) = txtAvePart7.Value
ActiveCell.Offset(16, 5) = txtAveFee7.Value
ActiveCell.Offset(16, 7) = txtContrib7.Value
ActiveCell.Offset(16, 9) = txtEmplo7.Value
ActiveCell.Offset(16, 11) = txtOther7.Value

'YEAR 3 -PAGE TWO
ActiveCell.Offset(17, 3) = txtAvePart8.Value
ActiveCell.Offset(17, 5) = txtAveFee8.Value
ActiveCell.Offset(17, 7) = txtContrib8.Value
ActiveCell.Offset(17, 9) = txtEmplo8.Value
ActiveCell.Offset(17, 11) = txtOther8.Value

'YEAR 4 -PAGE TWO
ActiveCell.Offset(18, 3) = txtAvePart9.Value
ActiveCell.Offset(18, 5) = txtAveFee9.Value
ActiveCell.Offset(18, 7) = txtContrib9.Value
ActiveCell.Offset(18, 9) = txtEmplo9.Value
ActiveCell.Offset(18, 11) = txtOther9.Value

'YEAR 5 -PAGE TWO
ActiveCell.Offset(19, 3) = txtAvePart10.Value
ActiveCell.Offset(19, 5) = txtAveFee10.Value
ActiveCell.Offset(19, 7) = txtContrib10.Value
ActiveCell.Offset(19, 9) = txtEmplo10.Value
ActiveCell.Offset(19, 11) = txtOther10.Value
ActiveCell.Offset(20, 1) = TextBox1.Value

'PAGE THREE************************************************
'YEAR 1 -PAGE THREE
ActiveCell.Offset(22, 3) = txtAvePart11.Value
ActiveCell.Offset(22, 5) = txtAveFee11.Value
ActiveCell.Offset(22, 7) = txtContrib11.Value
ActiveCell.Offset(22, 9) = txtEmplo11.Value
ActiveCell.Offset(22, 11) = txtOther11.Value

'YEAR 2 -PAGE THREE
ActiveCell.Offset(23, 3) = txtAvePart12.Value
ActiveCell.Offset(23, 5) = txtAveFee12.Value
ActiveCell.Offset(23, 7) = txtContrib12.Value
ActiveCell.Offset(23, 9) = txtEmplo12.Value
ActiveCell.Offset(23, 11) = txtOther12.Value

'YEAR 3 -PAGE THREE
ActiveCell.Offset(24, 3) = txtAvePart13.Value
ActiveCell.Offset(24, 5) = txtAveFee13.Value
ActiveCell.Offset(24, 7) = txtContrib13.Value
ActiveCell.Offset(24, 9) = txtEmplo13.Value
ActiveCell.Offset(24, 11) = txtOther13.Value

'YEAR 4 -PAGE THREE
ActiveCell.Offset(25, 3) = txtAvePart14.Value
ActiveCell.Offset(25, 5) = txtAveFee14.Value
ActiveCell.Offset(25, 7) = txtContrib14.Value
ActiveCell.Offset(25, 9) = txtEmplo14.Value
ActiveCell.Offset(25, 11) = txtOther14.Value

'YEAR 5 -PAGE THREE
ActiveCell.Offset(26, 3) = txtAvePart15.Value
ActiveCell.Offset(26, 5) = txtAveFee15.Value
ActiveCell.Offset(26, 7) = txtContrib15.Value
ActiveCell.Offset(26, 9) = txtEmplo15.Value
ActiveCell.Offset(26, 11) = txtOther15.Value
ActiveCell.Offset(27, 1) = TextBox2.Value

'PAGE FOUR************************************************
'YEAR 1 -PAGE FOUR
ActiveCell.Offset(29, 3) = txtAvePart16.Value
ActiveCell.Offset(29, 5) = txtAveFee16.Value
ActiveCell.Offset(29, 7) = txtContrib16.Value
ActiveCell.Offset(29, 9) = txtEmplo16.Value
ActiveCell.Offset(29, 11) = txtOther16.Value

'YEAR 2 -PAGE FOUR
ActiveCell.Offset(30, 3) = txtAvePart17.Value
ActiveCell.Offset(30, 5) = txtAveFee17.Value
ActiveCell.Offset(30, 7) = txtContrib17.Value
ActiveCell.Offset(30, 9) = txtEmplo17.Value
ActiveCell.Offset(30, 11) = txtOther17.Value

'YEAR 3 -PAGE FOUR
ActiveCell.Offset(31, 3) = txtAvePart18.Value
ActiveCell.Offset(31, 5) = txtAveFee18.Value
ActiveCell.Offset(31, 7) = txtContrib18.Value
ActiveCell.Offset(31, 9) = txtEmplo18.Value
ActiveCell.Offset(31, 11) = txtOther18.Value

'YEAR 4 -PAGE FOUR
ActiveCell.Offset(32, 3) = txtAvePart19.Value
ActiveCell.Offset(32, 5) = txtAveFee19.Value
ActiveCell.Offset(32, 7) = txtContrib19.Value
ActiveCell.Offset(32, 9) = txtEmplo19.Value
ActiveCell.Offset(32, 11) = txtOther19.Value

'YEAR 5 -PAGE FOUR
ActiveCell.Offset(33, 3) = txtAvePart20.Value
ActiveCell.Offset(33, 5) = txtAveFee20.Value
ActiveCell.Offset(33, 7) = txtContrib20.Value
ActiveCell.Offset(33, 9) = txtEmplo20.Value
ActiveCell.Offset(33, 11) = txtOther20.Value
ActiveCell.Offset(34, 1) = TextBox4.Value

'PAGE FIVE************************************************
'YEAR 1 -PAGE FIVE
ActiveCell.Offset(36, 3) = txtAvePart21.Value
ActiveCell.Offset(36, 5) = txtAveFee21.Value
ActiveCell.Offset(36, 7) = txtContrib21.Value
ActiveCell.Offset(36, 9) = txtEmplo21.Value
ActiveCell.Offset(36, 11) = txtOther21.Value

'YEAR 2 -PAGE FIVE
ActiveCell.Offset(37, 3) = txtAvePart22.Value
ActiveCell.Offset(37, 5) = txtAveFee22.Value
ActiveCell.Offset(37, 7) = txtContrib22.Value
ActiveCell.Offset(37, 9) = txtEmplo22.Value
ActiveCell.Offset(37, 11) = txtOther22.Value

'YEAR 3 -PAGE FIVE
ActiveCell.Offset(38, 3) = txtAvePart23.Value
ActiveCell.Offset(38, 5) = txtAveFee23.Value
ActiveCell.Offset(38, 7) = txtContrib23.Value
ActiveCell.Offset(38, 9) = txtEmplo23.Value
ActiveCell.Offset(38, 11) = txtOther23.Value

'YEAR 4 -PAGE FIVE
ActiveCell.Offset(39, 3) = txtAvePart24.Value
ActiveCell.Offset(39, 5) = txtAveFee24.Value
ActiveCell.Offset(39, 7) = txtContrib24.Value
ActiveCell.Offset(39, 9) = txtEmplo24.Value
ActiveCell.Offset(39, 11) = txtOther19.Value

'YEAR 5 -PAGE FIVE
ActiveCell.Offset(40, 3) = txtAvePart25.Value
ActiveCell.Offset(40, 5) = txtAveFee25.Value
ActiveCell.Offset(40, 7) = txtContrib25.Value
ActiveCell.Offset(40, 9) = txtEmplo25.Value
ActiveCell.Offset(40, 11) = txtOther25.Value
ActiveCell.Offset(41, 1) = TextBox5.Value

'PAGE ONE -SECOND GROUP***************************
ActiveCell.Offset(44, 3) = txtFacEx1.Value

ActiveCell.Offset(45, 3) = txtFacEx2.Value

ActiveCell.Offset(46, 3) = txtFacEx3.Value

ActiveCell.Offset(47, 3) = txtFacEx4.Value

ActiveCell.Offset(48, 3) = txtFacEx5.Value

ActiveCell.Offset(50, 3) = txtFacEx6.Value

ActiveCell.Offset(51, 3) = txtFacEx7.Value

ActiveCell.Offset(52, 3) = txtFacEx8.Value

ActiveCell.Offset(53, 3) = txtFacEx9.Value

ActiveCell.Offset(54, 3) = txtFacEx10.Value

Range("B3").Select
'IF DELETED BELOW "UNLOAD ME" THEN THIS DIALOG BOX WILL NOT CLOSE AFTER HIT CREATE MODEL BUTTON!!
Unload Me

End Sub