Run-time error '9' Subscript out of range

[letser]

Volgend code werkt perfect:

Var = ThisWorkbook.Path() & "\Temperature\DegreeDays.xls"
Set wb = Workbooks.Open(Filename:=Var)
Var = wb.Worksheets("TEMPRE").Range("C6").Value
wb.Close False

waarbij Var gelijk is aan R:\FlexTool\Temperature\DegreeDays.xls

Echter volgende code (die mij leuker lijkt aangezien hij het bestand niet opent) werkt niet:

Var = Workbooks("R:\FlexTool\Temperature\DegreeDays.xls").Worksheets("TEMPRE").Range("C6").Value
    MsgBox Var

Hierbij krijg ik namelijk een error:

Run-time error '9' 
Subscript out of range

Weet er iemand wat ik mis doe?

bedankt

 

[Wigi]

Je kan zo niet lezen uit een gesloten bestand, geen nut van verder te proberen