Link cell from one open workbook to another

[mrsak87]

Hi,

I'm having a little trouble linking one cell to another. My objective is to paste an updating chart from one workbook to another and also link just one cell from one to another

The chart part works but I can't get one cell to link to another

Basically I want D12 from DestWB to always reference the value from J5 in the SrcWB. I'm obviously missing a trick!

Dim my_FileName As Variant
Dim DestWB As Workbook: Set DestWB = ActiveWorkbook
Dim UserChoice
Dim SrcWB As Workbook

Application.ScreenUpdating = False
On Error Resume Next
'clear any charts
ActiveSheet.ChartObjects.Delete

'Open
my_FileName = Application.GetOpenFilename
If my_FileName <> False Then

Workbooks.Open Filename:=my_FileName
Else
Exit Sub
End If

Set SrcWB = ActiveWorkbook

'Paste linked chart

SrcWB.Worksheets("Timeline").Activate
ActiveSheet.ChartObjects("Timeline").Activate
ActiveChart.ChartArea.Copy
DestWB.Worksheets("Laboratory").Activate
ActiveSheet.Range("B17").Select
ActiveSheet.Paste

'
'Range("d12") = SrcWB.Worksheets("Timeline").Range("j5")

Thanks for any help

[mehmetcik]

I do not understand your issue, a simple formula will do that for you

=[Book1]Sheet1!$A$1

=[SrcWB]Sheet("Timeline")!$J$1