Sub tt()
Dim TestfileWkb As Workbook
Dim YardWkb As Workbook
Dim strTestfileFile As String
Set YardWkb = ThisWorkbook
Debug.Print YardWkb.Name
strTestfileFile = "Mappe3.xlsm"
Set TestfileWkb = Workbooks.Open(Filename:=strTestfileFile)
Debug.Print TestfileWkb.Name
TestfileWkb.Close False
Set TestfileWkb = OpenIt(strTestfileFile)
Debug.Print TestfileWkb.Name
End Sub
Function OpenIt(File As String) As Workbook
Set OpenIt = Workbooks.Open(Filename:=File)
End Function