Copy Macro

[tintin1012000]

Below macro is copy of one from a different workbook, It works fine on the other work book but it wont work in a new one


Any ideas ?

Sub Macro1()

Dim weekno As Integer
Dim wbname As String

weekno = Sheet1.Range("B25").Value
wbname = "wk" & weekno

Sheet1.Range("D55").Value = "='\\IEMAFS001\VOL1\APM\Prodqty\Electronic shift book\8882\Line 1\[" & wbname & ".xls]Graphs'!$Q$47"



End Sub

 

[CharlesChuckieCharles]

New workbook
Does it have
a value in B25

does the file and sheet \\IEMAFS001\VOL1\APM\Prodqty\Electronic shift book\8882\Line 1\[" & wbname & ".xls]Graphs' Exist ?

is D55 protected?

 

[tintin1012000]

Does it have
a value in B25,
B25 is where i put in a week number, for example, if i put 40 B25 then the link should be \\IEMAFS001\VOL1\APM\Prodqty\Electronic shift book\8882\Line 1\[40.xls]Graphs'


does the file and sheet \\IEMAFS001\VOL1\APM\Prodqty\Electronic shift book\8882\Line 1\[" & wbname & ".xls]Graphs' Exist ?
Yes this file exists

is D55 protected? no its not protected