Opgelost Gegevens uit een ander werkbook halen

[EfBe]

Hallo beste helpers
Ik heb in een bestand dat altijd bij opstarten geladen word nl "PERSONAL.xlsb"
In dat bestand staan gegevens die ik in andere bestanden gebruik.
Ik gebruik volgende code, is het mogelijk om dit te verwezenlijken zonder Activate

Sub TestHV()
    Windows("PERSONAL.xlsb").Activate
    [TeverdelenHor] = 280
    
    With Sheets("Gegevens")
        .Range("D184:Q184").Copy
    End With
        
    Windows("Afr 2024 en 2025.xlsx").Activate
    With Sheets("Afr 2024")
        .Range("R13").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    End With
End Sub

 

[AHulpje]

Ja:

Workbooks("Personal.xlsb").Sheets("Gegevens").Range("D184:Q184").Copy
Sheets("Afr 2024").Range("R13").PasteSpecial Paste:=xlPasteValues

 

[HSV]

Sheets("Afr 2024").Range("R13").resize(,14)= Workbooks("Personal.xlsb").Sheets("Gegevens").Range("D184:Q184").value

 

[EfBe]

Bedankt, werkt perfect