Kopier ark over i anden mappe, VBA

Er det kun et ark eller er det flere?

Denne makro skal startes i mappe1 ark1

Sub hent()
    Cells.Select
    Selection.Copy
    Windows("mappe2").Activate
    Sheets("ark1").Select
    Sheets.Add
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Denne kan også startes i mappe2

Sub hent()
    Windows("mappe1").Activate
    Sheets("ark1").Select
    Cells.Select
    Selection.Copy
    Windows("mappe2").Activate
    Sheets("ark1").Select
    Sheets.Add
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

HAr du fået kigget på det?

Hvordan går det?, skal du have mere hjælp?

det er en kolleger der skal bruge det, jeg får svar i den her uge, håber det i orden det lige venter lidt med svar

Det er helt iorden :o)

den virker, tak, smid et svat

Et svat :o)