Wrong in refering to workbook

[kin]

Hello

Sub Macro4()


Columns("A:A").Select
Range("A16").Activate
Application.CutCopyMode = False
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
Range("A1").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[6],'THEMATERIALSBROKEN'Sheet1!R1C1:R250C2,2,FALSE)"
Range("A1").Select
Selection.AutoFill Destination:=Range("A1:E300"), Type:=xlFillDefault
Range("A1:E300").Select
Selection.AutoFill Destination:=Range("A1:E300"), Type:=xlFillDefault
Range("A1:E300").Select
Selection.NumberFormat = "0"
End Sub


I dont know how to refer to "=VLOOKUP(RC[6],'THEMATERIALSBROKEN'Sheet1

THEMATERIALSBROKEN is another workbook with the vlookup table

 

[VoG]

If you enter that formula manually does it return the correct values?

 

[kin]

yes it does

 

[VoG]

I've tested my code and it returns the correct formulas so I'm not sure what is wrong.

 

[kin]

maybe something from settings in excel????

 

[VoG]

Check that the macro is entering the correct formulas. I only ran a quick test.

 

[kin]

I suspect there is something with the dialog box Update links ......

 

[kin]

WELL i found it

I used to open the file from outlook while the broken materials were in another directory

its allright now

thanks