If Auto_Open is the sub that loads the values from the cell to the form
and Save_Button_Click is the sub that saves the values from the
textboxes to the sheet, then you need to exchange the left and ride
side expressions of your assignment statements.

Change

Range("J1").Value = CRF_Form.TextBox1.Text
Range("J2").Value = CRF_Form.TextBox2.Text
...

To

CRF_Form.TextBox1.Text = Range("J1").Value
CRF_Form.TextBox2.Text = Range("J2").Value
...


jlroper Wrote:
I would like to store whatever is in a form, into the cells on a
spreadsheat. Then have the spreadsheet restore the information on the
next loadup. the code I have is as follows:

Code:
--------------------
Sub Auto_Open()

CRF_Form.TextBox1.SetFocus

Worksheets("Sheet1").Activate

ActiveWorkbook.Saved = False

Range("J1").Value = CRF_Form.TextBox1.Text
Range("J2").Value = CRF_Form.TextBox2.Text
Range("J3").Value = CRF_Form.TextBox3.Text
Range("J4").Value = CRF_Form.TextBox4.Text
Range("J5").Value = CRF_Form.TextBox5.Text
Range("J6").Value = CRF_Form.TextBox6.Text
Range("J7").Value = CRF_Form.TextBox7.Text
Range("J8").Value = CRF_Form.TextBox8.Text
Range("J9").Value = CRF_Form.TextBox9.Text
Range("J10").Value = CRF_Form.TextBox10.Text
Range("J11").Value = CRF_Form.TextBox11.Text
Range("J12").Value = CRF_Form.TextBox12.Text
Range("J13").Value = CRF_Form.TextBox13.Text
Range("J14").Value = CRF_Form.TextBox14.Text
Range("J15").Value = CRF_Form.TextBox15.Text
Range("J16").Value = CRF_Form.TextBox16.Text
Range("J17").Value = CRF_Form.TextBox17.Text
Range("J18").Value = CRF_Form.TextBox18.Text
Range("J19").Value = CRF_Form.TextBox19.Text
Range("J20").Value = CRF_Form.TextBox20.Text
Range("J21").Value = CRF_Form.TextBox21.Text
Range("J22").Value = CRF_Form.TextBox22.Text
Range("J23").Value = CRF_Form.TextBox23.Text
Range("J24").Value = CRF_Form.TextBox24.Text
Range("J25").Value = CRF_Form.TextBox25.Text

CRF_Form.Show
Unload CRF_Form

End Sub
--------------------



Code:
--------------------
Private Sub Save_Button_Click()

Application.DefaultSaveFormat = xlExcel2003Workbook
' Set NewBook = Workbooks.Add

Worksheets("Sheet1").Activate
CRF_Form.TextBox1.Text = Range("J1").Value
CRF_Form.TextBox2.Text = Range("J2").Value
CRF_Form.TextBox3.Text = Range("J3").Value
CRF_Form.TextBox4.Text = Range("J4").Value
CRF_Form.TextBox5.Text = Range("J5").Value
CRF_Form.TextBox6.Text = Range("J6").Value
CRF_Form.TextBox7.Text = Range("J7").Value
CRF_Form.TextBox8.Text = Range("J8").Value
CRF_Form.TextBox9.Text = Range("J9").Value
CRF_Form.TextBox10.Text = Range("J10").Value
CRF_Form.TextBox11.Text = Range("J11").Value
CRF_Form.TextBox12.Text = Range("J12").Value
CRF_Form.TextBox13.Text = Range("J13").Value
CRF_Form.TextBox14.Text = Range("J14").Value
CRF_Form.TextBox15.Text = Range("J15").Value
CRF_Form.TextBox16.Text = Range("J16").Value
CRF_Form.TextBox17.Text = Range("J17").Value
CRF_Form.TextBox18.Text = Range("J18").Value
CRF_Form.TextBox19.Text = Range("J19").Value
CRF_Form.TextBox20.Text = Range("J20").Value
CRF_Form.TextBox21.Text = Range("J21").Value
CRF_Form.TextBox22.Text = Range("J22").Value
CRF_Form.TextBox23.Text = Range("J23").Value
CRF_Form.TextBox24.Text = Range("J24").Value
CRF_Form.TextBox25.Text = Range("J25").Value

Do
fName = Application.GetSaveAsFilename
Loop Until fName < False
ActiveWorkbook.SaveAs Filename:=fName
ActiveWorkbook.Saved = True

End Sub
--------------------


Can someone tell me what I'm doing wrong (it just doesn't save the
data into the cells)?

Thank you so much for any input (me being a newbie doesn't help, I
really need a piece of knowledge here).


--
T-®ex
------------------------------------------------------------------------
T-®ex's Profile: http://www.excelforum.com/member.php...o&userid=26572
View this thread: http://www.excelforum.com/showthread...hreadid=400687