Sorry, my bad. Sourcefile has the full path, you just need the workbook name.

I would set a wb object when you open it like so

[vba]
Dim wb As Workbook
Dim sourcefile As String
sourcefile = "H:\My Documents\Masterlistan\2\historik v2.0 final test.xls"
Set wb = Workbooks.Open(sourcefile)
[/vba]

then use wb to close

[vba]

Application.ScreenUpdating = True
Msgbox "Data refreshed!"
With wb
.Save
.Close
End With
Set wb = Nothing
[/vba]