bestandsnaam vasten leggen in variable

[tepke]

beste

Ik loop tegen een probleempje aan, ik heb hieronder een stukje code dit werkt goed in dit bestand van mijn test Excel "test2.xlsm" maar ik wil het stukje programma importeren in andere bestanden, met andere namen.
zal ik denk ik eerst de bestandsnaam waar in ik werk moeten opslaan in een variable, kan iemand me hier mee helpen?

    Workbooks.Open Filename:="G:\algemeen\PIM\conversie.xlsx"
    Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range("A1:B36626").Select
    Selection.Copy
    
[COLOR="#FF0000"]    'fout  in code
    Windows("test2.xlsm").Activate[/COLOR]
    
    ActiveSheet.Paste

alvast bedankt voor je hulp

 

[HSV]

Ja, vergeet select en Activate en zoek naar betere codes hier die een bestand openen zonder geactiveerd te worden.
Zo hoef je niet te switchen en heb je de variabele niet nodig, want dat lijkt mij ThisWorkbook zo te zien.

 

[tepke]

Bedankt ik ben eruit gekomen