One thing I can say is that I have an advantage over most people using the
same method as you and I for doing this kind of stuff. I have to assume you
are doing your "Critical Path Method" on a bunch of 8 1/2" x 11" paper, where
being an Engineer I have a huge Printer that can print 48" x 150' if I need
it. I printed my Flow Chart on a 48" x 72" sheet and have it taped on my
wall. Then as each Block is complete, I just color it with a high lighter to
show it as completed.

Nice wall paper , huh?

FYI, if you ever need me to print a "Flow Chart" for you, I would be happy
to. I can print it and mail it to you, so you can see the whole sheet at one
time.




"JLGWhiz" wrote:

Hi Brian, I believe you have buttons on your UserForm that open the various
workbooks where you will store the UserForm TextBox data on hidden sheets.
If this is correct, then you could insert your retrieval code into the click
event code so that as soon as that work book is opened, the data can be
recovered from the hidden sheet. In that case the UserForm could be
referred to as Me.

Workbooks("SPEC").Sheets("Hidden").Visible = True
Me.TextBox1.Text = Worksbooks("SPEC")/Sheets("Hidden").Range("A1").Value

The above example would retrieve the stored value from the hidden sheet cell
A1 and place it in TextBox1. Only if you do not run the code from the
UserForm would you have to make reference to the full object path. i.e.
UserForm1.TextBox1 = etc.

If you try to put the code in the public code module, the the workbooks
will need to be opened first and the UserRorm will have to be active for the
code to work.



"Brian" wrote in message
...
I have a User Form that once it is filled in, it updates several other Work
Books from different Control Buttons.

I need to save the Input on the User Form in one of the Wook Books, so
that
if the Work Book is opened again the User Form automatically Fills back
in.
I have the following code for when my Work Book is opened:

' Open Existing Eng Spec 9 Control Button
Private Sub Open_Existing_Eng_Spec_9_Click()

Dim FileToOpen As Variant
Dim bk As Workbook
Dim LastBackSlashPos As Long
Dim myMsg As String

FileToOpen = Application.GetOpenFilename("SPEC (*.xlsm), Spec*.xlsm")

If FileToOpen = False Then

MsgBox prompt:=Engineering_2.Value & vbLf & "You canceled opening
an
Engineering Spec", _
Title:="C.E.S."

' MsgBox "User Canceled Operation, No Engineering Spec was
Opened",
, "C.E.S."
Exit Sub
End If

LastBackSlashPos = InStrRev(FileToOpen, "\", -1, vbTextCompare)

If UCase(Mid(FileToOpen, LastBackSlashPos + 1, 4)) < UCase("SPEC")
Then

MsgBox prompt:=Engineer_2.Value & vbLf & "You can only open an
exsisting Engineering Spec", _
Title:="C.E.S."

Exit Sub
End If

Set bk = Workbooks.Open(Filename:=FileToOpen)
'================================================= ====
'Update Data Storage Sheet (Hidden in Job Work Book)
'================================================= ====

With Workbooks("Master Engineering Spec.xlsm").Sheets("COVER SHEET")
' Site Information:
Me("CLLI_Code_1").Value = .Range("D02").Value
Me("Office_1").Value = .Range("D03").Value
Me("Address_11").Value = .Range("D04").Value
Me("Address_12").Value = .Range("D05").Value

More Code like above here

' Line 46
Me("Type_Work_723").Value = .Range("C83").Value
Me("Bay_Description_723").Value = .Range("J83").Value
Me("Bay_ID_723").Value = .Range("F83").Value
Me("Description_Work_723").Value = .Range("M83").Value
'================================================= ====

End Sub


How would I reference the User Form from the Work Book so that when the
Work
Book is opened the Data from the hidden Sheet is automaticaly sent back to
the User Form to fill it back in?

User Form = UserForm1
Work Book = Master Engineering Spec.xlsm
Sheet = Job Data


.