You night also need to add .Value after your TextBox and ComboBox.

.Range("D19").Value = Me("Location_4").Value
.Range("D20").Value = Me("Address_41").Value

I think that if it was the file extension, you would be getting a "Subscript
out of range" message, unless you have alerts turned off.



"Brian" wrote in message
...
I have a Work Book that only contains a User Form in it. This User Form is
for Updating 3 other Work Books. In my User Form I have a Control Button
named "Update_Engineer_Spec_8". When I fill in the information on the
User
Form I click the Update Button and it fills in the Cells on the other Work
Book.

Control Button name is "Update_Engineer_Spec_8"
User Form Name is "UserForm1
Text Box name is "Location_4"
Combo Box name is "Address_41"
Workbook name is "Master_Engineering_Spec"
Workbook Sheet name is "Cover Sheet"

This is the code I have, but for some reason the Work Book "Master
Engineering Spec" does not Update when the Control Button is clicked. What
did I do incorrectly?

' Update Engineering Spec Button
Private Sub Update_Engineer_Spec_8_Click()

With Workbooks("Master Engineering Spec").Sheets("Cover Sheet")
.Range("D19").Value = Me("Location_4")
.Range("D20").Value = Me("Address_41")

End With

End Sub


Thanks
B