Data halen uit een ander blad en deze weer afsluiten

[Relleboer]

Sub Info_nok_lijst()
    Application.ScreenUpdating = False
    Workbooks.Open Filename:="W:\Jan-willem\Opwerken materiaal\voorraad inc opwerken.xls"
    Range("a2", Range("a2").End(xlDown)).Copy
    Application.DisplayAlerts = False
    ActiveWindow.Close
    [COLOR="Red"]Sheets(1).Select
    Range("a1").Select
    ActiveSheet.PasteSpecial Format:="Unicodetekst"
    Selection.Sort Key1:=Range("a1"), Orientation:=xlTopToBottom[/COLOR]
    
End Sub

De code werkt maar mijn vraag is of het gene in het rood ook anders kan worden geformuleerd

 

[Wigi]

Zoiets?

Sub Info_nok_lijst()
    dim wb As Workbook
    Application.ScreenUpdating = False
    Set wb = Workbooks.Open("W:\Jan-willem\Opwerken materiaal\voorraad inc opwerken.xls")
    wb.Sheets("[B]naamvandesheet[/B]").Range("A2", wb.Sheets("[B]naamvandesheet[/B]").Range("A2").End(xlDown)).Copy
    Application.DisplayAlerts = False

    With ThisWorkbook.Sheets("[B]naamvandedoelsheet[/B]").Range("A1")
            .PasteSpecial Format:="Unicodetekst"
            .CurrentRegion.Sort Key1:=.Cells(1), Orientation:=xlTopToBottom
    End With
    wb.Close False
End Sub

ongeteste code

Wigi

 

[Relleboer]

bedankt wigi