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

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)

"wpllc2004" wrote in message
om...
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