Select Method of Range Class Failed: Runtime Error "1004"

Jeg har indspillet en macro som virker, men når jeg prøver at putte den dannede kode ind i en knap, så virker det ikke, og jeg får "Select Method of Range Class Failed: Runtime Error "1004"".

Jeg har googlet mig frem til, at jeg har problemer med min .Select, men jeg kan ikke finde ud af, at lave det rigtigt.

Min kode skal kort fortalt gøre opdatere et ark med indholdet fra en XMLfil, sådan at man ved tryp på en knap kan få det gjort automatisk.

Min kode ser sådan ud, og den fejler allerede i linie 2; Cells.Select:

[code]Private Sub CommandButton2_Click()
'Ryd nuværende indhold i arket "Stregkodedump Gældende":
    Sheets("Stregkodedump Gældende").Select
    Cells.Select
    Selection.ClearContents
    Range("A1").Select
'Åbn den XML fil, der skal kopieres nyt indhold fra, og kopier alle celler:
    Workbooks.Open Filename:= _
        "\\servername\STREGKODER\STREGKODER.XML"
    Cells.Select
    Selection.Copy
'Gå tilbage til den første Excel, og Paste ind:
    Windows("TEST Stregkodedump.xls").Activate
    ActiveSheet.Paste
'Luk XML filen igen:
    Windows("STREGKODER.XML").Activate
    Application.CutCopyMode = False
    ActiveWindow.Close
'Indsæt dato for opdatering i ark "Opslag" i celle J1:
    Sheets("Opslag").Select
    Range("J1").Select
    ActiveCell.FormulaR1C1 = "=NOW()"
    Range("J1").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
'Gem filen:
    ActiveWorkbook.Save
'Positioner i A2 i det aktive ark; "Opslag":
    Range("A2").Select
End Sub[/code]