pswanie,

Name a cell

RunMacro

and then put "Yes" into that cell before emailing the workbook.

In the workbook's open code, use this

Private Sub Workbook_Open()
Dim myB As Workbook
If Environ("COMPUTERNAME") = "janphi" Then
If Range("RunMacro").Value = "Yes" Then
Range("RunMacro").Value = "No"
Set myB = Workbooks.Open("C:\windows\myfolder\inventry.xls")
myB.Worksheets("Sheet1").Range("B2").Copy _
ThisWorkbook.Worksheets("Sheet1").Range("B2")
myB.Close False
Application.DisplayAlerts = False
ThisWorkbook.SaveAs "C:\windows\myfolder\inventry.xls"
Application.DisplayAlerts = True
End If
End If

End Sub

HTH,
Bernie
MS Excel MVP


"pswanie" wrote in message
...
i got 2 computers...
lets name computer A janphi
and computer B pswanie

i use pswanie to write and edit a workbook wich i then email a excel
workbook to janphi. with the name editinventry.xls. this i got saved in
c:\windows\myfolder

janphi has a c:\windows\myfolder\inventry.xls

i need a macro to run when janphi open the editinventry.xls from the email.
this macro then needs to copy\paste info from inventry.xls {sheet1 cell
b2} to editinventry {sheet1 cell b2}.

next step will be to save as {editinventry.xls} to
c:\windows\myfolder\inventry.xls on janphi...

this need to run once only.