Hej Göran,

Lite svårt att veta exakt hur det ser ut i ditt fall, men nedanstående exempelkod hoppas jag skall hjälpa dig hitta rätt. Se kommentarer i kod för att anpassa till din situation.

Lycka till!!

Public Sub ImportData()
   
    Dim wbImport As Workbook 'arbetsboken som skall hämtas från
    Dim wb As Workbook 'variabel för att gå igenom arbetsböcker
    Dim strWBName 'namnet på arbetsboken som skall hämtas från
   
    strWBName = "Data.xls"
   
    'går igenom och kollar om arbetsböcker är öppna
    For Each wb In Application.Workbooks
        'vilken mapp skall letas i?
        If wb.Path = ThisWorkbook.Path And wb.Name = strWBName Then
            Set wbImport = wb
            Exit For
        End If
    Next wb
   
    'har arbetsboken hittats - om inte öppna den
    If wbImport Is Nothing Then
        Set wbImport = Workbooks.Open(ThisWorkbook.Path & Application.PathSeparator & strWBName)
        'här kod för att hämta värden
       
        'stäng utan att spara
        wbImport.Saved = True
        wbImport.Close
    Else
        'här kod för att hämta värden
    End If

End Sub