Dave,

What I had to do was add a Hidden Sheet in the Work Book being saved in
order to save all the Data in the User Form. Then when that Work Book is
opened again it loads the Data back to the User Form from the Hidden Sheet.

If you tell me what code you want to see I will post it.



"Dave Peterson" wrote:

This line doesn't look right.

..Range("A09").Value = Me("Office_1").Value

Maybe you meant something like:
..Range("A09").Value = Me.controls("Office_1").Value

===========
So somewhere you have a line that looks something like:

With Workbooks("Master Engineering Spec.xlsm")
.saveas filename:=.....
....

Instead of refering to the workbook by its name, you can use a variable. Maybe
even assign the variable when you open the workbook.

dim wkbk as workbook
....
set wkbk = workbooks.open(filename:="c:\somepath\Master Engineering Spec.xlsm")

Then when you save it...

wkbk.saveas filename:="C:\somenewname"

But keep refering to that variable...

with wkbk.workSheets("COVER SHEET")
.Range("A09").Value = Me.controls("Office_1").Value




Brian wrote:

I have this code when I go to update a new workbook, but once the workbook is
updated and saved, it will not allow you to reupdate it. I think the reason
is because it's looking for the workbook "Master Engineering Spec.xlsm" and
that is not the workbook name.

Here is the sequence I am following.
1: Open User Form
2: Open New Engineering Spec (Control Button "Open_New_Engineer_Spec_8")
3: Fill in the user Form
4: Update Engineering Spec (Control Button "Update_Engineer_Spec_10"
5: Save Engineering Spec workbook (I automaticaly assigns the name.

Now here is where the problem is. You forgot to fill in something on the
User Form. So you go back and put it in, then you click on the Control Button
"Update_Engineer_Spec_10" and you get a run Time Error message.

How can I get around this so that it updates the workbook? Do I need to add
another Control Button to up date exsisting worksbooks?

'Update Engineering Spec Control Button(Sheet 1)
Private Sub Update_Engineer_Spec_10_Click()

With Workbooks("Master Engineering Spec.xlsm").Sheets("COVER SHEET")
'Job Address Information
.Range("A09").Value = Me("Office_1").Value
.Range("A10").Value = Me("Address_11").Value
.Range("A11").Value = Me("Address_12").Value
.Range("A12").Value = Me("City_1").Value
.Range("B12").Value = Me("State_1").Value
.Range("C12").Value = Me("Zip_Code_1").Value

More Code Here, but same as above.

End With

--

Dave Peterson
.