Hi,

I was wondering if the following is possible. In the workbook is the following snippet of code transferring some info (read) from a set of active workbooks to a master workbook (write).

Set myinfo = Worksheets("Project").Range("p2")
Set mydates = Worksheets("Project").Range("C15")

    With myField 'read
        .Price = myinfo.Offset(0, 0).Value
        .LocationNo = myinfo.Offset(1, 0).Value
        .Sampno = myinfo.Offset(3, 0).Value
        .TestsS = myinfo.Offset(4, 0).Value
        .TestsC = myinfo.Offset(5, 0).Value
        .TestsNT = myinfo.Offset(6, 0).Value
        .TestsO = myinfo.Offset(7, 0).Value
        .TimeC = myinfo.Offset(16, 0).Value
        .TimeT = myinfo.Offset(17, 0).Value
        .issuedate = mydates.Offset(0, 0).Value
        .Approvaldate = mydates.Offset(1, 0).Value
        .Deadline = mydates.Offset(2, 0).Value
        '.DateComp = ""
        
        'SrcWB.Close SaveChanges:=False
    
    End With
        
    DestWB.Worksheets("Laboratory").Activate
    Set WriteRow = Worksheets("Laboratory").Range("d15")
    
    With WriteRow 'write
        .Offset(0, 0) = myField.Price
        .Offset(1, 0) = myField.LocationNo
        .Offset(2, 0) = myField.Sampno
        .Offset(3, 0) = myField.TestsS
        .Offset(4, 0) = myField.TestsC
        .Offset(5, 0) = myField.TestsNT
        .Offset(6, 0) = myField.TestsO
        .Offset(11, 0) = myField.TimeC
        .Offset(12, 0) = myField.TimeT
        .Offset(7, 0) = myField.issuedate
        .Offset(8, 0) = myField.Approvaldate
        .Offset(9, 0) = myField.Deadline
        '.Offset(13, 0) = myField.DateComp
            
    End With
Is it possible for this method to have the values linked? as in if the first workbook changes then the second will automatically update?

I know you can do this when pasting i.e use

ActiveSheet.Paste Link:=True
But can it be done using the above method?

Thanks for any help!