Hej Jörgen,

Principerna för ett sådant makro kan se ut som nedan. Hoppas att detta hjälper dig vidare.

Public Sub GetValuesModellA()

    Dim wb As Workbook
    Dim strWbSearchName As String
    Dim strWbSearchpath As String
    Dim blnFound As Boolean
   
    strWbSearchName = "ModellA Utvärdering.xlsx"
    strWbSearchpath = "C:\Dokument\Modeller\ModellA\"
   
    Application.ScreenUpdating = False
   
    For Each wb In Application.Workbooks
        If wb.Name = strWbSearchName Then
            blnFound = True
        ElseIf wb.Name <> ThisWorkbook.Name Then
            wb.Save
            wb.Close
        End If
    Next wb
   
    If Not blnFound Then
        Application.Workbooks.Open (strWbSearchpath & strWbSearchName)
    End If
   
    '-----här lägger du korrekt kod för att hämta datan
    ' ex.
    ThisWorkbook.Sheets(1).Range("B1").Value = Workbooks(strWbSearchName).Sheets(1).Range("A1").Value
    '-----
   
    If Not blnFound Then
        Workbooks(strWbSearchName).Close
    End If

    Application.ScreenUpdating = True
   
End Sub

Mvh
Henrik