Use a worksheet open event in the ThisWorkbook module

Private Sub Workbook_Open()
Sheets("sheet1").Value = _
Sheets("sheet2").Value
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Allen" wrote in message
...
An easy example spells out my question the best:
On excell 2003 I have one worksheet (WS1) with a values:

A
1 2
2 2
3 +a1+a2

The formula in WS1!A3 results in a cell value of course 4. I desire to
"PUSH" the result in cell WS1!A3 to a new worksheet (WS2) to cell WS2!A1.
In
most cases I would go to WS2 cell A1 & enter =WS1!A3.

This does not work in this case becase:
I need to "Push" the value to WS2 and still be able to type over the cell
WS2!A1 and the next time the worksheet is opened/updated the new value
will
be pushed from WS1!A3 to WS2!A1.

i.e. How can I push the value and still be able to type over the cell to
adjust the value and STILL keep the unlying formula for the next time
there
is a change or I open the workseet again.

I am currently opening the worksheet have all the needed transfers and
then
typing over the formulas if some data needs adjusted - resaving the sheet
with another name so my underlying formulas are intact, but when I give
this
sheet to others they will not be so carefull.

Please Help?