Save TextBox Entry after WorkBook is closed

[wpllc2004]

Hello to all

I've got a problem with recovering textbox entries in a Userform after
the workbook is closed. I found the following code (from Tom Ogilvy),
which works perfectly when the Userform is closed, but it doesn't work
if I close and re-open the workbook. Ideally, I would like to store
(somewhere) the values that I enter in the textboxes and use them
after closing the specific workbook and opening it at another point in
time.

======<General Module >=====
Public sString As String


======<Userform Module>=====
Private Sub CommandButton1_Click()
sString = TextBox1.Text
Unload Me
End Sub


Private Sub UserForm_Initialize()
If Len(sString) > 0 Then
TextBox1.Text = sString
Else
TextBox1.Text = ""
End If
End Sub


Can anybody help me with this one?

Many thanks in advance.
AP

 

[Bob Phillips]

Try this

Private Sub UserForm_Initialize()
TextBox1.Text =Worksheets("Sheet1").Range("A1").Value
End Sub

Private Sub UserForm_Terminate()
Worksheets("Sheet1").Range("A1").Value = TextBox1.Text
End Sub

change the worksheet area to suit.
--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)